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PREFACE 


This publication is organized in three 
sections. Section 1 is ап introduction 
describing the relationship between the 
compiler and the Operating System, and the 
overall organization of the compiler. Sec- 
tion 2 is a description of the compiler 
phases, including a general description of 
each logical phase followed by descriptions 
of each of the physical phases contained in 
the logical phase. Section 3 consists of 
flowcharts and routine directories. The 


flowcharts show the relationship between 
the routines of each phase, while the 
directories list the routines and their 
functions. 


The appendixes appearing at the end of 
the publication contain topics of special 
importance and reference material. 


The convention has been followed in this 
manual of printing all PL/I language items 
in block capitals. 


Prerequisite to the use of this publica- 
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IBM System/360, Principles of Operation, 
Form А22-6821 
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PURPOSE OF THE COMPILER 


The Operating System/360 PL/I (F) Com- 
piler analyzes and processes source pro- 
grams written in PL/I, and translates them 
into object programs in load module form 
Suitable for input to the Linkage Editor. 
When errors are detected in the source 
program, appropriate diagnostic messages 
are produced. The compiler functions with- 
in Operating System/360 and may be used on 


machines where at least 45,056 (44K) bytes 
of core storage are available for the 
compilation (exclusive of storage require- 


ments for the Operating System). 


THE COMPILER AND OPERATING SYSTEM/360 


The PL/I (F) Compiler is а processing 
program of Operating System/360. The com- 
piler consists of a number of phases under 
the supervision of compiler control rou- 
tines. The compiler communicates with the 
control program of the Operating System, 
for input/output and other services, 
through the control routines. 


A compilation is introduced as a job 
step under the control of the Operating 
System, via the JOB statement, the execute 
(EXEC) statement, and the data definition 
(DD) statements of the Job Control Lan- 
guage, for the input/output data sets. 
Cataloged procedures are provided to keep 
these statements to a minimum. A discus- 
sion of the introduction of а compilation 
aS a job step, and of the available catal- 
oged procedures, is given in the publica- 


tion IBM System/360 Operating System, PL/I 
(Е) Programmer's Guide, Form C28-6594. 


The source program to be compiled 
appears as input to the compiler оп the 
SYSIN data set. The compiler uses SYSUT1 
(required if the main storage is insuffi- 


cient to contain the program) and SYSUT3 
(required if the 48-character set or the 
compile-time processor is used) as work 


data sets. The SYSPUNCH, SYSPRINT, and 
SYSLIN data sets are used, depending on the 
options specified by the source programmer, 
to contain the output from the compiler. 


The overall data flow associated with a 
compilation, and the data sets used in the 
compilation, are illustrated in Figure 1. 


SECTION 1: INTRODUCTION 


A compilation is initiated by loading 
the compiler control routines from the Link 
Library. The compiler control routines 
then carry out their own initialization, 
including loading those compiler control 
routines which remain in storage throughout 
the compilation. These routines perform 
the following functions: 


1. Act as the interface between the соп- 
piler phase and the Operating System, 
controlling all input/output, storage 
allocation, program interruptions, 
storage dumping, etc. 


2. Supervise the loading of compiler 
phases in accordance with source pro- 
gram options and information obtained 
from the source program by the compil- 
er phases. 


3. Supervise all workspace 
compiler for information concerning 
the source program. This includes any 
Spilling from main storage to backing 
storage in order to accommodate large 
source programs, the conversion of 
symbolic references to absolute 
addresses, and the conversion from 
absolute addresses to symbolic ref- 
erences. 


used by the 


4. Provide a number of routines to assist 
in compiler debugging. 


The compiler options specified are 
interpreted and the appropriate action 
taken. The environmental options, such as 


storage size and device type, are used to 
calculate the text and dictionary block 
size and the "spill" point (i.e. the point 
at which the main storage available is 
insufficient to contain the dictionary and 
text). 


To determine the block size а table 
contained in Phase AB is used. The storage 
Size is used as the argument to search the 
table. When the correct entry is found, 
the text block size and the dictionary 
block size values are extracted and used 
for the compilation. 


The options are instructions to the 


compiler. Some of these require a phase to 
be loaded that would not otherwise be 
loaded. When an option of this type is 


found, a request for the phase required is 
inserted into the status byte in the phase 
directory. Other options are in the form 
of instructions to a phase that is always 
loaded. These instructions are also placed 
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т------------- 
| 
| 
| 
V 
pcne qoe ToS UE qm qp ды. rece т gum 1 
SOURCE | XREF | LIST | DECK | LOAD 
option | option | option | option | option 
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| | | | | | | | | 
| | | | | | | | | 
| | | | | | 1 | | 
V | V | V | V | V 
r-----------—- qul r------------- v | сарва ав E оон А r------------- 1 
| Source 1 | | List of | | | List of | | | ESD, TXT, li | ESD, TXT, | 
| | | | identifiers,| | | object code] | | ІІ! | 
| program | | | produced | | | ЕШ, and END|| | RLD, and END| 
| | | | list of | | | by the MM Ii | | 
| listing | | | statement | | | compiler | | | card images || | card images | 
| | | | numbers MM ии | | 
бәш былым шш J | t--——-—------- J | t--------+----~ a aes J| t------—-------4 
SYSPRINT | SYSPRINT | SYSPRINT | SYS PUNCH | SYSLIN 
| | 
EXTREF ATR for all SOURCE2 
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| | | | 
| | | | 
| | | | 
V V V V 
(ee діні діні 1 ИИС Е = qo (R= =o SSS 1 
| External | | List of | | | | | 
| { | identifiers, | | Diagnostic |  |Listing of | 
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| | | attributes | | | |compile-time | 
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Bee eae 4 Қ ылы ысы UN DUUM TN. J азаа pt тентек иен жей 1 
SYSPRINT SYSPRINT SYSPRINT SYSPRINT 


Figure 1. Compiler Data Flow and Data Sets Used 
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in coded form in a control code word in the 
communications region of the dictionary 
(see "Control Code Word --  CCCODE" in 
Appendix B). 


COMPILER ORGANIZATION 





The PL/I (F) Compiler comprises a number 
of logical phases, each of which consists 
of several physical phases. 


The compiler phases and their corres- 
ponding functions are indicated in Figure 
2, and the organization of the compiler is 
shown in Figure 3. 


Control is passed between the phases of 
the compiler via the control routines. 
After each phase has been executed, it 
branches to the control phase, which sel- 
ects from its load list the next phase to 
be executed. 


Communication between the phases is 
implemented by the following: 


1. The text string. The text string at 
the start of the compilation is input 


text. This is converted by the 
compile-time processor, if necessary, 
into a string which is PI/I source 
text. The characters in this string 
are translated into a code internal to 
the compiler. The phases of the  com- 
piler gradually process the text until 
the final form is the object program, 
consisting of a string of machine 
instructions. For the compiler pro- 


per, the text code bytes used, and 
formats of statements at different 
stages of the compilation, will Бе 


found in Appendix D. 


The text is broken down into a number 
of blocks, depending upon the size of 
the machine. Each block has а symbol- 
ic name which is independent of the 
physical location of the block in 
storage. Thus, the text blocks may be 
moved around in core storage under the 
supervision of the compiler control 
routines, and spilled on to backing 
storage if insufficient main storage 
is available. 


2. The dictionary. The dictionary con- 
sists of a number of blocks, each with 
a symbolic name. Part of the first 
dictionary block is used as a communi- 
cations region (see Appendix F) 
between phases, and for this reason 
the first block is never spilled, even 
when the source program to be compiled 
exceeds available storage. The com- 
munications region contains such 
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information as the addresses of the 
heads of chains, the symbolic start of 
text, etc. The remainder of the dic- 
tionary contains all information 
relating to identifiers appearing in 
the program, temporary storage areas 
required, etc. For the compiler pro- 
per, the format of all dictionary 
entries will be found in Appendix C. 


И cee er ra О ee ешш шеш 1 
|Logical Phase| Main Functions | 


|Compile-time |Executes compile-time | 
| Processor | statements and produces | 
| linput for further compiler| 
| | processing. | 


|Check source program syn-| 
| | tax; remove superfluous | 
| | characters. | 


| Dictionary |Remove BCD identifiers andj 
| lattribute declarations; 

| jreplace by symbolic ref-| 
| |l erences to dictionary | 
| |entries. | 
|Pretranslator|Rearrange 1/0 statements; | 
| |create temporary  variables| 
| |for procedure argument | 
| lexpressions; convert array| 
| |апа structure assignments | 
| |Ео DO loops; remove iSUB| 
| jexpressions. | 
І------------- І--------------------------- 1 
| Translator [Convert PL/I syntactical | 
| Jform to internal triple| 
| | form. | 


+ 
[Мар all structures and| 
larrays to align elements on| 
| [correct storage boundaries. | 
}------------- І--------------------------- 1 
|Pseudo-code |Convert triples to pseudo-| 
| | code. 


| 
| Aggregates 
| 


| Storage |Allocate storage for items | 
Jallocation Jin AUTOMATIC blocks or| 
| {STATIC storage area. | 


|Кедісжег |Allocate physical registers | 
laliocation Jin place of symbolic reg-| 
| listers requested by earlier| 
| | Phases, | 
| Final {Complete translation to ма- | 
Jassembly іспіпе code; produce loader | 
|text; produce object code| 

| | listing. | 
І-------------І--------------------------- 1 
|Error {Prints out any necessary | 
Editor |diagnostic messages. | 


| 
DUM ба ONE NUN MC MEA eee eee 1 


Figure 2. Logical Phases of the Compiler 
and their Corresponding Func- 
tions 
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LOGICAL PHASES 


The logical phases of the compiler and 
their main functions are summarized in the 
following paragraphs. 


Compile-time Processor Phase 


The Compile-time Processor Phase reads 
input text, executes any compile-time 
statements contained in it, and modifies 
text as directed, producing modified text 
for further compiler processing. 


Read-In Phase 


The Read-In Phase is the 
phase, and is responsible for any macro 
source program modifications, source pro- 
gram syntax checking, and the removal, from 
the text string, of all superfluous charac- 
ters, such as comments and non-significant 
blanks. 


first logical 


Dictionary Phase 


The Dictionary Phase removes all BCD 
identifiers and attribute declarations from 


the source string,. and replaces them by 
symbolic references to dictionary entries. 
The dictionary entries contain all the 


consistent declared attributes, and all the 
attributes specified in the language in 
default of source program specifications. 
Error messages are generated for all incon- 
sistent attributes. 


Pretranslator Phase 


The Pretranslator Phase processes those 
features of the language that are more 
easily processed in their original PL/I 
form, than when the original syntactic form 
has been lost in later phases. The Pre- 
translator carries out these modifications 
which include the rearranging of the order 
of certain I/O statements, the creation of 
temporary Variables for procedure arguments 
which are expressions, the conversion of 
array and structure assignments to a series 
of "рО" loops surrounding scalar assign- 
ments, and the removal of iSUB expressions. 
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Translator Phase 


The Translator Phase converts the origi- 
nal PL/I syntactic form to an internal 
Syntactic form, referred to as "triples." 


Triples consist of the original source 
program operators and operands, but rearr- 
anged so that the operations specified in 
the source string may be carried out in 
their proper order. 


Aggregates Phase 


The Aggregates Phase carries out all 
structure and array mapping, so that ele- 
ments are aligned on the correct storage 
boundaries. When it is not possible to 
carry out the mapping at compilation time, 
such as when the aggregates contain string 
lengths or array bounds which are specified 
by expressions, object code is produced to 
do it at object time. This phase also 
checks that items DEFINED on arrays and 
structures can be mapped consistently. 


Pseudo-Code Phase 


The Pseudo-Code Phase converts the tri- 
ples to a form closely resembling machine 
instructions, in which registers are rep- 
resented symbolically, and storage loca- 
tions are represented by dictionary ref- 
erences with offsets. The final pseudo- 
code version of the text also contains a 
number of special pseudo-code items for the 
guidance of later phases. 


Storage Allocation Phase 


The Storage Allocation Phase searches 
dictionary for all entries requiring 
allocates offsets to each 


the 
storage, and 


item, either within its AUTOMATIC block, or 
within the STATIC storage area. Code is 
compiled to set up dope vectors and 


pointers at object time, for allocations of 
controlled variables and temporaries, the 
storage for which must be obtained during 
the execution of the object program. Pro- 
logue code is generated for each block of 
the object program. 
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Register Allocation Phase 


The Register Allocation Phase allocates 
physical registers to the symbolic reg- 
isters which have been requested by earlier 
phases, and also ensures that ail the 
storage location offsets allocated in pre- 
vious phases can be addressed by the inser- 
tion of additional instructions, where пес- 
essary. 


Final Assembly Phase 


The Final Assembly Phase completes the 
translation to machine code instructions, 
by calculating branch destination addresses 
inserted symbolically by earlier phases. 
Loader text is then produced for the 
machine instructions, constants, INITIAL 
values in STATIC storage, and all the 
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constant data required for block initiali- 
zation. ESD, RLD, and INCLUDE cards are 
produced to enable the object program to be 
edited by the Operating System/360 Linkage 


Editor. The Final Assembly Phase also 
produces a listing of the object code 
produced. 


Error Editor Phase 


The Error Editor Phase is entered at the 
end of every compilation. The dictionary 
is examined to determine whether there are 
any diagnostic messages to be printed out. 
If there are none, the compilation is 
terminated by the compiler control. If 
there are diagnostic messages to be printed 
out, the error dictionary entries are proc- 
essed and the messages are printed. The 
texts of all the diagnostic messages are 
held in modules XG through YX. 


COMPILER CONTROL AND 48-CHARACTER SET 
PREPROCESSOR 


COMPILER CONTROL 


When the PL/I (F) Compiler is invoked by 
the calling program (e.g., the Job 
Scheduler) of the Operating System, the 
Compiler Control module IEMAA is loaded and 
entered. IEMAA is resident during the 
whole compilation; it controls the follow- 
ing functions: 

Initialization 

Character translation 

Text and dictionary block control 
Scratch storage control 

Phase loading 

Diagnostic message control 
Input/output control 

Program check handling 


Job termination 


Initialization 


Initialization is achieved by module AA 
linking to module AB. Module AB performs 
the detailed initialization of the  compil- 
er, and provides the following functions: 


Opens SYSIN and SYSPRINT data sets 


Constructs a phase directory (for details 
refer to Appendix B) 


Sets up a communications region in the 
dictionary (for details refer to Appendix 
F) 

Scans option list 


Obtains space for text blocks, dictionary 
blocks, and scratch storage 


Opens SYSUT3 as necessary 


Prints a list of options used in current 


compilation 
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On return from module AB, the first compil- 
er phase is loaded and entered. 


character translation tables (see 

D.1) provide the facility for 
converting external code to а compiler 
internal code, and for converting the 
internal code back to the external form. 
These tables thus prevent the compiler from 
becoming character code dependent, and ena- 
ble the scanning routines to process the 
input source statements more efficiently. 
Note that the contents of these tables are 
different during compile-time processing 
from the contents during compilation pro- 
per. 


The 
Appendix 


Communications Region 


The communications region iS an area 
specified by the control routines, and used 
to communicate necessary information 
between the various phases of the compiler. 
The communications region is resident in 


the first dictionary block throughout the 
compilation. 
Entry to the various compiler control 


routines is via a transfer vector. Details 
of the transfer vector and the organization 
of the communications region appear in 
Appendix F. (Note: The use of the communi- 
cations region during compile-time process- 
ing is described in Appendix J.) 


Text and Dictionary Block Control 


Block control is achieved by a system of 
text and dictionary references. If the 
program in storage becomes too large, 
blocks are placed on an external file, 
SYSUT1. The block control routines contain 
the input/output control. 


Scratch Storage Control 


Scratch storage of 4K bytes is 
teed to all phases. 


guaran- 
The control routines 
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Split the 4K-block into discrete sections, 
and allocates them as required. The sec- 
tions are in multiples of 512 bytes. 


Storage Requirements 


The (F) Compiler requires main 


for the following purposes : 


storage 


Compiler processing phases 


Print buffers 


Compiler control routines 
Dictionary area 

Text area 

Input/Output buffers 
Input/Output routines (BSAM) 

The main storage required by each phase 
of the compiler need be contiguous only for 
each control section. 

During the read-in phases a minimum of 
two dictionary blocks and two text blocks 
are available in storage simultaneously. 

During the rest ОЁ the compilation four 


dictionary blocks and four text blocks are 
available in storage simultaneously. 


The dictionary and text block size is 
chosen according to the amount of main 
storage available to the compiler. The 
SIZE option, interpreted at invocation 
time, provides the value used to determine 


the block size. A table contained in Phase 
AB is searched, using the SIZE option as an 
argument. When the correct entry is found, 
the block size is extracted. 


Appendix E shows details of storage 
allocation. 
Phase Loading 

Phase loading routines include phase 
Marking (where phases are indicated as 
wanted or not wanted), phase loading, and 
phase deleting facilities. The phase 
directory is constructed for this purpose. 
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Phase Directory 


Because of the number of phases in the 
compiler, the phase directory is split into 
halves. The first half is constructed 
during the initialization of the compiler; 
also a list of names of the phases in the 
second half is kept in Phase AA. This list 
is used to pass status indications (1.е., 
whether phases are wanted or not wanted) 
from the first half to the second half. 
Phase JZ uses the list to construct a new 
directory for the second half. 


The phase directory is constructed by 
use of the BLDL macro and a build list. 
The format of the build list is fully 
described in the publication IBM System/360 


Operating System, Control Program Services, 


Form C28-6541. For details of the phase 
directory see Appendix B. 
Diagnostic Message Control 

Diagnostic message control routines 


cause diagnostic messages to be placed ina 
chain in the dictionary. 


Input/Output Control 


The I/O control routines involved act as 
an interface between the compiler phases, 
and SYSIN, SYSPRINT, SYSLIN, and sSYSPUNCH 
data sets. (See Figure 4.) 


Program Check Handling 


The compiler handles all program checks. 
Control can be passed to a phase to enable 
it to deal with the check. 


Job Termination 


The compiler completion code is 
up and 
program. 


picked 
control is returned to the calling 


The compiler codes are as 


follows: 


completion 


Code Meaning 

0 No diagnostic messages issued; com- 
pilation completed with no errors; 
successful execution expected 


1АА, AC, and АЕ are modules of the control phase, and contain the actual І/О 


| 

| routines which interface with the 0/5 access methods (В5АМ, QSAM). | 
| shown for other modules indicates that these modules are utilizing the I/0 
| 


routines. 


|2А5 may read from included data sets in addition to data sets shown in the table. 
|ЗІҒ the SIZE option results іп ІК text and dictionary blocks, SYSUT1 is opened by 


| Module AB. 
| the available main storage is full. 
| be compiled. 


In the case of other SIZE options, SYSUT1 is opened by Module AA when 
The timing depends on the size of program to 


I/O activity 


<--------------------------------- Мойх1е--------------------------------- > 

> > к почо На, ТЕЕ: ПЕЕВ Иа: ЫЕЕЕ = ди 1----- Tome puce та qoe 
| | АА? | АВ |AE+ | AS | ВХ | СІ | А52 | FY | UA UF | XB | AE | АА“ | 
ļ-------- Тесезе ве qpesespesesegpesecpeseee quee quee ł----- qe ł----- pese qeseee 4 
| Data | | | | | | | | | | | | | | 
| Set | | | | | | | | | | | | | | 
| | | | | | | | | | | | | | | 
| SYSIN | | ОРЕМ | | |READ|READ |READ | | | | | CLOSE | | 
| | | | | | | | | | | | | | | 
|SYSLIB | | | OPEN | | | |READ | | | | | | CLOSE | 
| | | | | | | | | | | | | | | 
|5Ү5ІІМ | | | ОРЕМ | | | {READ | | | | | | CLOSE | 
| | | | | | | | | | | | | ol | 
| SYSPRINT| |OPEN | | | | WRITE | WRITE | WRITE] WRITE|WRITE] WRITE] | CLOSE | 
| | | | | | | | | | | | | | | 
| SYSPUNCH| | | OPEN | | | | | | WRITE | | | | CLOSE | 
| | | | | | | | | ] | | | | | 
|SYSUT1  |OPEN?|OPEN?| l | |READ | | | | | | | CLOSE | 
| | | | | | | WRITE | | | | | | | | 
| | | | | | | | | | | | | | | 
|SYSUT3 | | ОРЕМ | | | | WRITE |WRITE | | | | | CLOSE | | 
| | | | | | |READ | | | | | | | | 
UNE L-----4-----4l----R----Al---LRl-.----4---—--4-----4.---2-1-----4----2-4-----4-----]| 
| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

1 


|“АЕ end of compilation. 


————À i —— Á——— P———— Á ete тыйын 
Figure 8. Input/Output Usage Table 
4 Warning messages issued; program 
compiled; successful execution 
expected 
8 Error messages issued; program com- 
piled but with errors; execution 
may fail 
12 Severe error messages issued; com- 


pilation may be completed but with 
errors, successful execution impro- 
bable. If a Severe error occurs 
during compile-time procesSing, a 
listing of the PL/I text on SYSUT3 


will be printed if the SOURCE 
option is specified. The compila- 
tion will be terminated. 

16 Terminal error messages issued; 


compilation terminated abnormally 


COMPILER CONTROL MODULES 


In addition to modules AA and AB, furth- 
er modules, AC, AD, AE, AF,AG, AM, and JZ 
are used in compiler control. The func- 
tions of these modules are briefly des- 
cribed in the following paragraphs. 
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Module АС 


Module АС controls reading and writing 
operations оп  SYSUT3, the intermediate 
file. It is loaded only if the CHAR48 or 
MACRO option is specified, and is deleted 
at the end of the Read-In Phase. 


Module AD 


Module AD performs inter-phase dumping 
using TESTRAN. 


All currently active storage is dumped 
at the end of the phases stated or implied 
in the DUMP option. The required output is 
selected at TESTRAN edit time. 


The DUMP Option 


The DUMP option specifies where dumping 
of main storage is to take place. It may 
be specified in one of the following ways: 
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1. DUMP, means a dynamic dump is required 
(the dump routine will be called by a 
running phase) 


2. DUMP=(AREA) means а dump of storage 
only when a program check occurs 


3. DUMP= (AREA, X4 , X2, Сиа) means a 
dump of storage after the named phase 


X4, Хг. etc., аге 2-byte phase names 


AREA is any combination of TDPSC: 
text blocks 

dictionary block 

phases loaded 

scratch storage 

control phase 


сотон 


The general syntax is: 
DUMP (= (AREA, {х| (y,z) 1, ...)2] 


A single phase name indicates dumping of 
storage after this single phase. A pair of 
phase names indicates a continuous group of 
phases after which dumping of storage is to 
occur. 


The dump will appear on  SYSPRINT, 
inserted into the normal compiler output. 


Use of the DUMP option is not restricted 


by the amount of storage available to the 
compiler. 


Module AE 


Module AE is the 
Read-In Phase control. 


finalization of the 


Module AF 


Module AF is a control section  consist- 
ing of a table containing the compiler 
options which may be used during a compila- 
tion. The table is constructed at system 
generation time. The control section is 
brought into storage by the initialization 
Module AB at compilation time. <A descrip- 
tion of tne use of Module AF is given in 
Appendix G. 


Module AG 


Module AG closes SYSUT3 for output, and 
re-opens it for input. 
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The closing and opening operations are 
performed in the following order: 


CLOSE 
alter macro-type in data control block 
(DCB) 

OPEN(INPUT) 
switch routine ZURD to point at SYSUT3 
DCB 

Module AM 
Module AM marks phases as either wanted 


or not wanted, depending upon the compiler 
invocation options. Phases that are always 
loaded are marked wanted. 


АМ is the first compiler phase loaded 
after compiler initialization. It tests 
the relevant bits in CCCODE and marks the 
phases accordingly. 


Module JZ 


Module JZ builds the second half phase 
directory. A build list is constructed 
from the second half list held in Module 
AA; a BLDL is performed on this list. The 
phase directory is then reconstructed in 
Module AA for the second half of the 
compiler. 


48-CHARACTER SET PREPROCESSOR 


Phase BX is the ü8-character set prepro- 
cessor. It is loaded on programmer option 
and receives, as input, source text in the 
48-character syntax. 


The preprocessor scans the input text 
for occurrences of characters peculiar to 
the 48-character set, and converts these to 
the corresponding 60-character symbols. It 
then puts out the adjusted text onto  back- 
ing storage ready for Phase CI, the first 
pass of the Read-In Phase. 


The text is read in record by record. 
It is then scanned for alphabetic charac- 
ters which may be the initial letters. of 
operator keywords, for periods, and for 
commas. Items within comments or character 
strings are ignored. | 


When a possible initial letter is disco- 
vered, tests are made to determine whether 
or not one of the reserved operator key- 
words has been found. If one has been 


found, it is replaced by its 60-character 
set equivalent. Similarly, appearances of 
two periods are replaced by a colon, and а 
comma-period pair is replaced Бу а semi- 


colon if the comma-period pair is not 
immediately followed Бу a numeric 
character. 


Allowance is made for the possibility 
that a concatenation of characters which is 
meaningful in the 48-character set may be 
Split between two records. 


Before the text is processed a copy of 
the original input is preserved. The out- 
put from the preprocessor is the trans- 
formed text, record by record, followed by 
the original text. The Read-In Phase proc- 
esses transformed text but prints out the 
original. 


The preprocessor uses Compiler Control 


routine ZURD to obtain input, and routine 
ZUBW to place its output onto backing 
storage. 


Note: If the MACRO option is specified, all 
the processing described above is 
done by the compile-time processor, 
and phase Вх is bypassed. 


COMPILE-TIME PROCESSOR PHASE 


The compile-time 
six physical phases. 


processor consists of 
Each of these phases 
is executed once, unless an INCLUDE data 
set is encountered that contains compile- 
time statements. In this case certain 
phases will be re-executed. 


The compile-time processor moves source 
text that does not contain compile-time 
statements directly into text blocks. 
During this process invalid characters are 
replaced by blanks, and line numbers are 
encoded and inserted into the text. 
Compile-time statements are decoded and 
translated into an internal form and then 
placed directly into text blocks. An entry 
is made into the dictionary for each 
compile-time variable, procedure, label, or 
INCLUDE identifier. 


A second pass is then taken over these 
text blocks, during which compile-time 
statements are executed and the PL/I source 
program text is scanned and replacements 
are made. The output from this pass is a 
PL/I source program contained on SYSUT3. 


If during the second pass, an INCLUDE 
data set is processed that contains compile 
time statements, the entire procedure indi- 
cated above is executed recursively to 
process this text. 
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Text and dictionary formats used by the 
compile-time processor are contained in 
Appendix J. 


Line Numbering 


As the input is being processed a unique 
line number is assigned to every logical 
record processed. If a listing of the 


input is requested, these line numbers are 
written out beside the appropriate line. 
The line numbers are also encoded and 


inserted into the text so that diagnostics 
can be keyed to them. These line numbers 
are also output on SYSUT3, to aid the user 
in determining from which input line а 
particular line of output came. 


Phase AS 


This phase, consisting of 
module, is loaded if the option MACRO is 
specified. It is resident throughout 
compile-time processing until the cleanup 
phase (BW) is invoked. 


one physical 


This phase controls the loading of the 
subsequent compile-time processor phases. 
The initialization phase (AV) is loaded 
only once. The two processing phases (BC 
and BG) are loaded and executed once unless 
an INCLUDE data set is processed that 
contains compile-time statements. In this 
case phase AS reloads the processing phases 
to process this data set. 


In addition, phase AS contains a set of 
service routines used by both processing 
phases. Access to these routines is via a 
transfer vector located at the beginning of 
phase AS. 


Phase AV 


This phase consists of опе physical 
block. Its purpose is to initialize cer- 
tain cells in the communications region for 
the compile-time processor phases. 


Phase ВС 


Phase BC consists of three physical 
modules, BC, BE, and BF. Module BE con- 
tains the control routine. 
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Phase BC accepts input text, moving it 
into text blocks until a compile-time 
statement is found. (For a description of 
the use and layout of text and dictionary 
blocks, see Appendix J.) When a compile- 
time statement is encountered, it is 
encoded into a set of interpretive instruc- 
tions and, except for compile-time proce- 


dures, added to the current text block. 
Compile-time procedures are similarly 
encoded, but are placed in separate text 


blocks. 


AS compile-time statements are encoded, 
all non*keyword identifiers encountered are 
entered into the dictionary, together with 
any attributes that are known. Entries are 
also made in the dictionary for constants 
and iterative DOs. 


During phase BC, invalid characters 
occurring outside of strings and comments 
cause a diagnostic to be printed. They are 
converted to blanks. Invalid characters 
can thus be used for markers of various 


sorts in text blocks. Diagnostics are 
given for syntax errors in compile-time 
statements. Line numbers are encoded and 
inserted into the text for the use of the 
phase BG scan. All input characters are 
converted to their EBCDIC representation 
before they are processed. 
Phase BG 

Phase BG consists of two physical 


modules, BG and BI. The control routine is 
contained in module BG. 


In general, the input to phase BG is the 
set of chained text blocks and dictionary 
blocks created by phase BC. The phase BG 
execution is essentially that of the 
compile-time processor described in the 
external specifications. That is, its 
basic action is to move through text blocks 
looking for instances of compile-time vari- 
ables or compile-time statements, which it 
uses to produce the output text. As line 
numbers are encountered in the text, they 
are placed into a location containing the 
current line number. This is used both for 
phase BG diagnostics and by the output 
editor. 


If a compile-time variable or procedure 
reference is found, the scan cursor is 
positioned to scan its value. When the 
scan of the value is completed, the cursor 
is properly positioned back into the text. 
If a compile-time variable or procedure 
reference is found in this value scan, the 
process repeats itself. Such nesting can 
occur to a depth of 100. 
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If the scan encounters an encoded 
compile-time statement (built by phase BC), 
control is passed to an interpreter. This 
interpreter executes the statement -- pos- 
Sibly repositioning the scan cursor -- and 
returns to the scan. 


The output of this phase is a 
source program contained on SYSUT3. 


PL/I 


Phase BM 


Phase BM examines the heads of the error 
chains in the first dictionary block, and 
programmer options which specify the sever- 
ity level of messages required. If there 
are no messages, it passes control to the 
clean up phase (BW). If diagnostic messa- 
ges are required, the phase loads BN to 
process them after scanning the chains and 
indicating where the text is to be found. 


Module BN 
The text of all compile-time processor 
error messages is kept in modules BP 


through BV. The messages are ordered by 
severity, within these modules. BM will 
have listed those modules which contain 


messages required for a particular pass. 
Module BN loads and releases these modules, 
one at a time and extracts the required 
messages. When all compile-time error mes- 
sages have been processed, module BN 
returns control to BM. 


Phase BW 


The purpose of this phase to set all 
tables and communications regions celis to 
the values required by the compiler proper. 
In addition it will release all text and 
dictionary blocks used by the compile-time 
processor phases and then pass control to 
the next required phase of the compiler. 


If a severe or terminal diagnostic has 
been produced by the Compile-time processor 
a listing of the contents of SYSUT3 will be 
printed (provided that the SOURCE option 
applies), and compilation will be bypassed. 


THE READ-IN LOGICAL PHASE 


The Read-In Phase is implemented as five 
discrete physical phases, each of which 


processes a particular group of statement 
types. The phase obtains the input text in 
the externally coded form by a call to the 
compiler read routine, and converts it to 
internal code by means of a translate table 
provided by compiler control. 


The source text is scanned for syntacti- 
cal errors. During this time an output 
string is built up, which consists essen- 
tially of the input text with comments and 
insignificant blanks removed. The source 
text is scanned and statements аге num- 
pered, identified, and diagnosed. Any 
required substitutions are made, statement 
labels are inserted in the dictionary, and 
chains are formed (for example, BEGIN, 
PROCEDURE chains). If the SOURCE option 
applies, source statements, with their num- 
bers, are printed out immediately after 
they have been read. 


When the input text provides ап  end-of- 
file indication, processing is terminated. 
In ERROR situations this may not occur when 
a valid external procedure has been 
completely processed. By keeping a count 
of PROCEDURE, BEGIN, DO, END, ON, and IF 
Statements, the phase can detect when the 
logical end-of-program indication is found. 
If there are more records after the end of 
the external procedure, they are ignored. 


If an end-of-file indication is  encoun- 
tered before the logical end of the pro- 
gram, diagnostic messages are issued and 
suitable END statements are inserted to 
allow compilation to continue. 


The output of the Read-In Phase provides 
a syntactically correct output string; а 
table of entry and statement labels; chains 
of coded diagnostic messages; а set of 
switches specifying compilation content 
details; a set of chains linking statements 
of a particular type, to facilitate subse- 
quent scanning; and optionally, a listing 
of the source text. 


Statement Numbering 


All statements are given а sequential 
number. This includes each compound state- 
ment, each statement contained in a com- 
pound statement, block and group delimiting 
statements, and null statements. The ELSE 
clause is not regarded as a statement for 
numbering purposes. The numbering of the 
statement is indicated on the source list- 
ing. Diagnostic messages also refer to 
these statement numbers. 
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Statement and Entry Labels 


Statement and entry labels appearing in 
the source text are removed and added to a 
label table, which is built up in the 
region intended for the dictionary. This 
region may be extended by further blocks as 
required. The label table entry is an 
embryo dictionary entry, with blank regions 
to be filled later by the Dictionary Phase 
EG. 


When a label declaration is found, an 
entry is made in the label table with a 
Statement label code, the current (updated) 
sequential number, and the current block 
level and block count. 


Statements having multiple labels give 
rise to multiple label table entries. 
These entries are identical except for the 
BCD name. 


If the statement following a label is 


subsequently identified as a PROCEDURE or 
ENTRY statement, the label table is re- 
accessed, and the entries associated with 
the statement are modified (see Appendix 
(5222: 


Chains Constructed by Read-In 


To provide rapid scanning in the 
dictionary phases, the following chains are 
constructed by the Read-In Phase: 


The CALL chain 
The PROCEDURE-ENTRY-BEGIN chain 
The DECLARE chain 


The ALLOCATE chain 


Errors and Diagnostic Messages 


As the source text is scanned it is 
Syntactically analyzed. Keywords are iden- 
tified and passed as valid only if they may 
legally appear within the type of statement 
being diagnosed. However, consistency of 
attributes and options within a statement 
is not normally analyzed. This is left for 
Phase EK. 


When a syntactical error is detected, an 
attempt is made to correct it and an 
appropriate diagnostic message is generat- 
ed. The main aim of the Read-In Phase is 
to present syntactically correct text to 
subsequent compiler phases. Certain cor- 
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rections are performed without prejudicing 
the complete compilation. 


Detected errors cause a diagnostic mes- 
sage to be added to a diagnostic message 
chain in the dictionary area. Each message 
is in a coded form with parameters (textual 
matter, statement numbers, and во оп). Тһе 
message is decoded and printed out by the 
Error Editor. 


Where an error makes it impossible for 
the scan of a statement to continue, the 
statement is terminated correctly at such a 
point as to leave the statement syntacti- 
cally correct. The text between that point 
and the next semi-colon (not in a comment 
or character string) is skipped. The diag- 
nostic messages produced in these circum- 
stances will include at most the first ten 
characters of the text that is skipped. 


The Output String 


The 
complete 
blocks. 
cessful 
resulting 


output string is so arranged that a 
statement never spans storage 
One of the conditions of а suc- 
compilation is that the output 
from any statement must not 
exceed the block. This restriction, howev- 
er, does not apply to DECLARE statements. 
Formats of the statements appearing in the 
output string are given in Appendix D.2. 


Identifiers 


All identifiers which are not recognized 
as keywords in the source text appear in 
the output string. 


Constants 


All 
string. 


constants appear іп the output 


Operators 


All 
string. 


operators appear іп the output 
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Initial Labels 


Subscripted label variables which are 
initialized by attachment to statements are 
placed in pseudo-assignment statements in 
text, and. then handled as if they were 
normal labels. 


STRUCTURE OF THE READ-IN LOGICAL PHASE 


The Read-In Phase can occupy 16K bytes 
of storage for any one pass. A storage map 
for this phase is shown in Figure 5. 


Bytes 

0 nimc ICM MDC a шш сінік 1 
| СА | 

BK. |---<---з----<-------------2------- 1 

| сс | 

7K = "=== === psc pesos 1 
| cE | CK | CN | CR | CR | 

вк  [------ +------ ł------ ł------ +----—- 1 
| св | cL | co | cs | cv | 

12K  [------ +---——- +------ +------ +------ 1 
| сі | см | CP | CT | cw | 

16K 2. Segoe arene eee азы Ж T TRE TENE 1 


PASS 1 PASS 2 PASS 3 PASS 4 PASS 5 
Figure 5. Storage Map for the Read-In Phase 


The Read-In Phase consists of five phas- 
es or passes, each containing at most five 
modules. Modules CA and CC consist of 
common routines which are invoked through- 
out the phase by each of the passes, in 
turn. Modules CE, CK, CN, and CR contain 
separate keyword tables. Details of the 
organization of these tables are given in 
Appendix В. Control for each pass resides 
in modules СІ, CL, CO, CS, and CV respec- 
tively. The following description refers 
to the phases by these names. 


Phase CI 


During phase CI (the first physical 
phase of the Read-In Phase) the source text 
is read into storage, and character codes 
are converted to an internal form. State- 
ment types are identified, labels are 
inserted into the dictionary, and statement 
identifiers are replaced by single-byte 
codes (see Appendix D.1). 


A record is kept of block nesting levels 
and counts to enable a check to be made for 
the logical end-of-program indication. In 
order to do this, certain statements have 
to be either partially or completely ana- 
lyzed in this pass. 


These statements аге: 


PROCEDURE-END 
BEGIN-END 
DO-END 
IF-THEN-ELSE 
ON 


If the SOURCE option has been requested, 
a listing of the source program, with the 
statements numbered by the compiler, is 
printed out onto the specified output medi- 
um. 


Phase CL 


The output from phase CI is processed 
and the statement types listed below are 
analyzed in greater detail: 


ENTRY FREE 
PROCEDURE WAIT 
DO READ 
Iterative DO WRITE 
RETURN DELETE 
GO TO UNLOCK 
DELAY LOCATE 
DISPLAY REWRITE 


If any errors are detected during this 
pass, diagnostic messages are inserted into 
chains in the dictionary as required. 


Phase СО 


The output from phase CL is processed. 


In particular, the DECLARE, ALLOCATE, and 
CALL statements are analyzed in greater 
detail. The Syntax of attributes is 


checked, but their consistency is analyzed 
during phase EK. If the source program 
does not contain any of these three state- 
ments, this pass is not invoked. 


If any errors are detected during this 
pass, diagnostic messages are inserted into 
chains in the dictionary. 


Phase CS 


The output from phase CL or CO is 
processed. In particular, the syntax of 
input/output Statements is analyzed, 
together with the FORMAT statement. If the 
source program contains по input/output 


statements, this pass is not invoked. 
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Phase CV 


This phase processes 
earlier phases. 


the output from 
In order to assist subse- 
quent processing, chains are constructed 
for PROCEDURE, ENTRY, BEGIN, CALL, ALLO- 
CATE, and DECLARE statements. 


THE DICTIONARY LOGICAL PHASE 


The Dictionary Phase forms a 
of identifiers, by first analyzing PROCE- 
DURE, BEGIN, DECLARE, and ENTRY statements. 
The text is then scanned for contextual use 
of identifiers, constants, and pictures. 
Finally, every identifier and constant in 
the source text is replaced by а reference 
to its respective dictionary entry. Dic- 
tionary entries are made during this phase 
for all implicitly defined identifiers. 
The formats of dictionary entries appear in 
Appendix C. 


dictionary 


Constructing and Accessing the Dictionary 


The dictionary, during the construction 
stage, comprises two parts, the hash table 
and the dictionary proper. 


To facilitate a search through the dic- 
tionary for an entry with a particular BCD, 
a method is used of dividing the dictionary 
into areas. Each area is characterized by 
a property of the BCD of each entry in it. 
In practice, these areas are not contiguous 
but are chained lists, each item in the 
list being one dictionary entry long. 


The start of each list is in a 
known as the hash table. The association 
of a particular identifier with a list, 
146% the characterization of an area, is 
achieved by deriving from a given BCD an 
address in the hash table. 


table, 


"Hashing" is a process of reducing the 
length of the internal representation of 
the BCD to one word. This is done by 
adding successive four-byte lengths of the 
BCD into one four-byte register. This is 
then divided by 211, and the remainder is 
doubled to give the hash table address 
associated with the particular BCD. All 
identifiers which hash to the same address 
are placed in a chain; in particular, all 
dictionary entries with the same BCD will 
be in the same hash chain. 


If TOM, DICK, and HARRY occur in the 


same DECLARE statement in that order, and 
they all hash to the same address in the 
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hash table, the address in the hash table 
will point to HARRY's entry, which contains 
the address of DICK, which, in turn,  con- 
tains the address of TOM. 


When no further BCD entries are to be 
made in the dictionary, and all BCD iden- 
tifiers in the source text have been 
replaced by dictionary references, the hash 
table is deleted. 


Testing for Consistent Attributes 


A test is made at the start of each list 
of attributes, to ensure that any list of 
attributes at one level of factoring in a 
DECLARE statement is consistent. 


compiler Pseudo-Variables and Functions 


Expressions specified for array bounds, 
string lengths, and initial value iteration 
factors must be evaluated at object time, 
or at allocation time if the variable is 
controlled. The expressions are placed 
temporarily at the end of the text, and are 
later moved by Phase FV and placed 
immediately following the BEGIN, PROCEDURE 
or ALLOCATE statement to which the declared 
variable belongs. The expression results 
are assigned to pseudo-variables generated 
by the compiler. These serve two purposes: 
first, the assignment statement appears as 
a normal PL/I statement and need not be 
treated as a special case; secondly, the 
pseudo-variable contains the dictionary 
reference of the variable and information 
concerning the destination of the 
expression. Compiler functions with a 
format similar to the pseudo-variables are 
also created. The function result is the 
specified array bound, or string length. 
Compiler functions are created for two 
purposes: first, to set bounds for base 
elements of structures when the structure 
bound is an expression, or to set the 
bounds of temporary arrays; and secondly, 
to set the storage address of a dynamically 
defined item immediately before its use. 
The formats of all the compiler 
pseudo-variables and functions appear in 
Appendix D.8. | 


Dictionary Entries tor Entry Points 


A PROCEDURE or ENTRY statement may have 
more than one label. Each label must have 
a data description to indicate the type of 
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a function, and also the type of data to 
which the expression in a RETURN 
(expression) must be converted. These need 
not be the same: there must therefore be 
provision for two data descriptions for 
each label. A PROCEDURE or ENTRY statement 
May specify parameters. The descriptions 
of these identifiers, obtained from DECLARE 
Statements or default rules, are used for 
prologue construction, but not for paramet- 
er matching. Any data description given on 
these statements is to be used for conver- 
Sion at a RETURN (expression), but not for 
determining the result returned by a func- 
tion reference. 


Parameter descriptions for use in param- 
eter matching, and data descriptions used 
for determining the type of data returned 
by a function reference, may be specified 
by the source programmer in an ENTRY dec- 
laration. If these are not given, default 
and implicit rules must be used to build a 
data description, but no parameter descrip- 
tion can be given. 


Given the foregoing requirements, the 
Gictionary entries describing an internal 
entry point are as given in Figure 6. 


Тһе set of dictionary entries А, В, С, 
D, E is repeated for each label associated 
with the PROCEDURE or ENTRY statement. Тһе 
entry F will point to entry A for the first 
label only. D will point at the label with 
which it is associated. It should be noted 
that B and C may coincide. 


The entries type 1 for PROCEDURE, ENTRY, 
and BEGIN statements are chained amongst 
themselves in the following way. Each 
entry type 1 belonging to a PROCEDURE or 
BEGIN statement contains the dictionary 
reference of the entry type 1, of the next 
PROCEDURE or BEGIN statement in the source 
program, and also of the entry type 1 of 
the immediately containing block. 


The entries 
ENTRY statements 
procedure 


type 1 of PROCEDURE and 

belonging to а single 
are chained together in a circu- 
lar manner. If there are no ENTRY state- 
ments the entry type 1 of the PROCEDURE 
Statement points at itself. 


External entry points are described by 
dictionary entries termed entry type 4. 
They contain data descriptions of the value 
returned when referenced as a function, and 
may contain descriptions of parameters. 


Formal parameters which are entry points 
are termed entry type 5, and parameter 
descriptions which are entry points and are 
pointed at by types 3, 4, or 5 are termed 
entry type 6. 


pe 
іг-->| Dictionary entry for entry label [А 
| | r--| | 
= 1 
ІІ 
В. pease area See SS ee 1 
|] t->] Entry type 2. Used to provide | 
11 | data description of target in |B 
|I r--|] RETURN (expression). | 
Шынгыс жез D eee дш 1 
ШИ 
ІН г----------------------------------------- 1 
EN | у 
Chl) peser decime Ее о ш шш шшш ви 1 
|| “->[ Entry type 3. This entry is used | | Second entry type 2. | 
| | { to point at the data description С | | Used to provide data description | 
| Е---| and parameter descriptions for para-|D | of value returned when label А jc 
| r--| meter matching. | | is invoked as a function. This | 
| | t------- т--------- -------------- т----і | entry may, and usually will, coin- | 
| | | | | | cide with B. | 
|| | | | а a ga 
| | | Sas ассын 1 ыы 1 
| | | | | 
| | V V V 
| E нненнетнаее е 1 (cresce ac es eee pt 1 я 1 
| | | Description of | | Description of | | Description of | 
it | Е | | Е1 {Е2 
| | | first parameter | | second parameter | | each parameter | 
| | t---------.--------2---- 4 blocco бы J [Xlll uo uel cu i 
|] 
pol! Sgeeeceeceeeweece eere 1 ее 1 г”---------------------- 1 
| | | Entry type 1 for | | Formal parameter | | Description of para- | 
| *-»| PROCEDURE or |F | type 1 entry |6 | meter used in prologue|H 
і--- | ENTRY statement | | | | construction | 
Е а т---------- 1 ..--------------т------2 pci e e cce e 4 
| A | A 
| | | | 
Dee TRU ee J МЕ БАРС АВЕ шаланыш шыш зыш 1 
Note: There is an entry E for each parameter described in D. 
Figure 6. Dictionary Entries for an Internal Entry Point 
Phase EG On the appearance of PROCEDURE state- 
ments, circular PROCEDURE-ENTRY chains are 
initialized to link the entry type 1 dic- 
Phase EG has two main functions. The tionary entries of the PROCEDURE and ENTRY 
first is to set up a hash table, and to Statements of the same block. The formal 
insert the label entries left in the dic- parameter list is scanned, and formal  par- 
tionary by the Read-In Phase into hash ameter type 1 entries are: created and 
chains. The second function of the phase inserted into the hash chain. Details of 


is to create dictionary entries for PROCE- 
DURE, BEGIN, and ENTRY statements, and to 
construct chains linking entries of parti- 
cular types. 


For  PROCEDURE-BEGIN statements, entry 
type 1 dictionary entries are created (see 
Appendix C.2), and block header chains are 
set up to link these entries sequentially. 
A containing block chain is also set up to 
link each entry with that of its containing 
biock. 
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type 1 (see Appendix C.2). 


the PROCEDURE-ENTRY chains appear in Appen- 
dix C.2. 


The attribute list is scanned and an 
options code byte is created in the entry 
A check is then 
made for invalid and inconsistent attri- 
butes. CHARACTER and BIT attributes are 
processed, and second file statements (see 
Appendix D.8) are created if necessary. 
Precision data are converted to binary, and 
dictionary entries are created for pictures 
(see Appendix C.7). 


Dictionary Logical Phase 29 


Statenent labels are scanned and their 
entry type 2 dictionary entries аге creat- 
ed. The relevant data bytes in the dic- 
tionary are completed by default rules (see 
Appendix C.3). 


For ENTRY statements, entry type 1 dic- 


tionary entries are created (see Appendix 
C.2), and the circular PROCEDURE-ENTRY 
chain is extended. Formal parameters, 


attributes, and labels are processed in a 
Similar manner to those for PROCEDURE 
statements, except that the options code 
byte is not created. 


Phase EI 


Phase EI scans the chain of DECLARE 
statements set up by the Read-In Phase, and 
modifies the statements to assist Phase EK 
as follows: 

Structure Level Numbers: these are 
verted to binary. 


соп- 


Factored Attributes: parentheses enclosing 
factored attributes are replaced by special 
code bytes, so that Phase EK can distingu- 
ish them easily. A factored attribute 
table is set up. It consists of slots 
corresponding to each factored level. Each 
Slot contains the address of the attribute 


list associated with that level, and the 
address of the slot for the containing 
level. 


The following attributes are processed: 


DIMENSION: dimension table entries (see 
Appendix C.8) are created in the dictionary 
and the source text is replaced by a 
pointer to the entry. Fixed bounds are 
converted to binary and inserted in the 
table. A second file statement (see Appen- 
dix D.8) is created at the end of the text, 
for adjustable bounds, and a pointer to the 
Statement is inserted in the dimension 
table. Identifiers with identical array 
bounds share the same dimension table. 


PRECISION: precision and scale constants 
are converted to binary. 

INITIAL: dictionary entries are created 
for INITIAL attributes. 


INITIAL CALL: second file statements are 
created for INITIAL CALL attributes. 


CHARACTER and BIT: fixed length constants 
are converted to binary; a code byte marker 
is left for * lengths (see Appendix С.8). 
Second file statements. (see Appendix D.8) 
are created for adjustable length con- 
stants, and the source text is replaced by 
pointers to the statements. 
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DEFINED: second file statements (see 
Appendix D.8) are created and the source 
text is replaced by pointers to the state- 
ments. In the case of DEFINED attributes 
with 150В5, the iSUBs are made to precede 
their coefficient expressions. The syntax 
of the iSUB list is also checked. 





POSITION: the position 
verted to binary. 


constant 15 con- 


PICTURE: a picture table entry (see Appen- 
dix C.7) is created and inserted into the 
picture chain; similar pictures share the 
same picture table. The source text is 
replaced by a pointer to each entry. 


USES and SETS: USES and SETS attributes 
are moved into dictionary entries, and 
pointers to the entries replace the source 
text. 





LIKE: BCD entries are created for iden- 
tifiers with the LIKE attribute. 

LABEL: if the LABEL attribute has а list 
of statement label constants attached, a 
single dictionary entry is created. The 


dictionary entry contains the dictionary 
references of the statement label constants 
in the list. 


All other attributes, 
constants are skipped. 


identifiers, or 


Phase EL 


Phase EL, consisting of modules EK, EL, 
and EM, scans the chain of DECLARE state- 
ments constructed by the Read-In Phase. 


An area of storage known as the attri- 
bute collection area is reserved. This is 
used to store information about the iden- 
tifiers, and has entries of a similar 
format to that for dictionary entries. 


Complete dictionary entries 
structed for every identifier found in a 
DECLARE statement. These identifiers can 
be one of the following types: 


are con- 


1. Data Items (see Appendix C.4) 


2. Structures (in this case, the 
level number is calculated) 
Appendix C.4) 


*true' 
(see 

3. Label Variables (see Appendix C.4) 

4. Files (see Appendix C.7) 

5. Entry Points (see Appendix C.2) 


6. Parameters (see Appendix C.7) 


Identifiers appearing as multiple dec- 
larations are rejected and a diagnostic 
message is given. 


The attributes to be associated with 
each identifier are picked up in three 
ways. 


First, the 
lowing the identifier are 
attribute collection area. 


attributes immediately fol- 
stored іп the 


Secondly, any factored attributes and 
structure level numbers are examined. 
These are found by using the list of 
addresses placed in scratch core storage by 
Phase ЕТ. Each applicable attribute is 
marked in the attribute collection area, 
and any other information, e.g. dimension 
table address, or picture tabie address, is 
moved into a standard location in the 
attribute collection area. All conflicting 
attributes are rejected and diagnostic mes- 
Sages are given. 


Finally, any attributes which are 
required by the identifier, and which have 
not been declared, are obtained from the 
default rules. 

After the dictionary entry has been 
made, further processing (e.g. linking of 
chains, etc.) must be done in the follow- 
ing cases: 

1. DEFINED data 

2. Data with the LIKE attribute 

3. Files 

4. Strings with adjustable lengths 

5.  ArrayS having adjustable bounds 

6. GENERIC identifiers 

7. Structure members 

8. Identifiers with INITIAL CALL 

9. Identifiers with the INITIAL attribute 


declaration list has been 
it is erased. 


After the 
fully scanned and processed, 


Phase EP 


Phase EP first conditionally marks later 
phases as ‘wanted’ or ‘not wanted," accord- 
ing to how certain flags in the dictionary 
are set on or off. This assists in the 
load-ahead technique. 
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The entry type 1 chain in the dictionary 
is then scanned. For each PROCEDURE entry 
in the chain, each entry label is examined 
for a completed declaration of the type of 
data the entry point will return when 
invoked as a’function. If this has pre- 
viously been given in a DECLARE statement 
nothing further is done, otherwise entry 
type 2 and 3 dictionary entries are con- 
structed from default rules (see Appendix 
C. 23% If this default data description 
does not agree with the description derived 
from the PROCEDURE or ENTRY statement, a 
warning message is generated. 


At each PROCEDURE entry, the chain to 


the ENTRY statement entry type 1 is foI- 
lowed. Each statement is treated ina 
Similar manner to that for a PROCEDURE 


entry type 1. 


The CALL chain is then scanned and, at 
each point in the chain, the dictionary is 
searched for the identifier being called. 
If the correct one is not found, a dic- 
tionary entry for an EXTERNAL procedure is 
made (see Appendix C.2), using default 
rules for data description. Before making 
the entry, the identifier is checked for 
agreement with any of the built-in function 
names. If there is agreement, a diagnostic 
message is generated, and a dummy diction- 
ary reference is inserted. 


found, it is 
an undefined 


If an identifier is 
examined to see if it is 
formal parameter. If it is, the formal 
parameter is made into an- entry point, 
again using default rules for data descrip- 
tion. If it is not, or if the declaration 
of the formal parameter is complete, the 


type of entry is checked for the legality 
of the call. A diagnostic message is 
generated if the item may not be called. 


In all cases, the item called is marked 
IRREDUCIBLE if it has not previously been 
declared REDUCIBLE. 


Phase EW 


Phase EW is an optional phase, loaded 
only if any LIKE attributes appear in the 
source program. 


This phase scans the LIKE chain which 
has been constructed by Phase EK, and 


completes. the dictionary entry for any 
structure containing a LIKE reference. 
When a structure in the LIKE chain is 


found, its validity is checked, and dimen- 
sion data and inherited information are 
saved. The dictionary is scanned for the 
reference of the "likened" structure and 
the entry is checked for validity. 


Dictionary Logical Phase 31 


This dictionary entry (see Appendix C.4) 
is copied into the dictionary, with aitera- 
tions if there is a difference between the 
original structure and this structure with 
regard to dimensioned data. If both struc- 
tures have dimensions a straight copy is 
made; if the structure with the-LIKE attri- 
bute has dimensions and the likened struc- 
ture has not, the dimension information is 
added to the copy; if the structure with 
the LIKE attribute is not dimensioned and 
the likened structure is, then the dimen- 
Sion data is deleted from the сору. Inher- 
ited data is added to the copy. If an 
error is found, the structure with the LIKE 
attribute is deleted and a base element 
copy of the master structure is inserted 
instead. Where copies of entries occur 
which refer to dimension tables with varia- 
ble dimensions, the dimension table entry 
is copied, and new second file dictionary 
entries and statements are created. Simi- 
lar entries must be made if the structure 
item has been declared to be an adjustable 
length string, or has been deciared with 
the INITIAL attribute. 


Phase EY 


Phase EY is an optional phase which 
processes all ALLOCATE statements in which 
attributes are declared. 


The second file is Scanned first and all 
pointers to the dictionary are reversed. 
All ALLOCATE statements using the DECLARE 
chain are then scanned, and the dictionary 
references of allocated items are obtained 
by hashing the respective BCD of each item. 
The attributes given on the ALLOCATE state- 
ment for an item are collected together. 

А сору "ОЁ the dictionary entry of the 
allocated item is then made (see Appendix 
С.4), and the ALLOCATE statement is set to 
point to it. The dictionary entry is 
completed by inciuding any attributes given 
on the ALLOCATE Statement, and copying any 
second file statements from the DECLARE 
chain which are not overriden by the ALLO- 
CATE statement. 


Phase FA 

Phase FA scans the text sequentially. 
If, during the scan, qualified names are 
found with subscripts attached, they are 


reordered so that a single subscript list 


appears after the base element name. The 
dictionary is scanned and references 
obtained for any identifiers which are, 


contextually, file or event variables, or 
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programmer-named ON conditions. If no ref- 
erence is available, a new dictionary entry 
is made. The identifier is then replaced 
in the text by the dictionary reference. 


If a constant marker is found, the 
dictionary is scanned to check if the 
constant is present. If it is not, a new 


dictionary entry is made (see Appendix C.7) 
and the resulting reference replaces the 
constant in the text. 


If a P FORMAT marker is 
dictionary is 
in agreement. 


found, the 
scanned for a picture entry 
If there is no agreeing 


entry, a new dictionary entry is made (see 
Appendix C.7) and the picture chain is 
updated. Тһе dictionary reference replaces 


the format marker in the text. 

The CALL chain is removed from CALL 
statements. The appearance of PROCEDURE, 
BEGIN, END, and DO statements results in 
adjustments to the level and count stacks. 
If statement introduction code bytes appear 
(such as SN, SL, CL, and SN2), the current 
Statement number is updated. All data 
associated with the PROCEDURE, BEGIN, 
ENTRY, and DECLARE statements is removed, 
leaving only the statement identification 
and the keyword. 


Phase FE 


When an identifier is found, the hash 
chain is used to scan the dictionary for a 
valid entry. If опе is found, its dic- 
tionary reference replaces the identifier 
in the output text. If no valid entry is 
found, and the BCD does not agree with any 
entry in the tables of BCDs of PL/I built- 
in functions, then a dictionary entry is 
made as if the identifier was declared in 
the outermost procedure. However, if the 
BCD agrees with a function name, and it is 
not in а SETS position, a function entry is 
made in the dictionary, and its reference 
is used to replace the identifier. 


If a left parenthesis is found, the 
previous dictionary entry is checked for an 
array, function, or pseudo-variable. If it 
is one of these, the relevant marker is 
inserted in the text before the parenthesis 
(see Appendix D.1). 

Checks are also made for the positions 
of function references in assignment 
statements. Any dictionary references 
encountered in the input file are moved 
directly to the output file. 


PROCEDURE, BEGIN, DO, and END statements 
cause the current level count to be updat- 
ed. 


Phase FI 
Phase FI scans the text and checks, 
where possible, the validity of dictionary 


references found. References іп а GOTO 
statement are checked that they refer to 
labels or label variables and that the 
Subsequent branch is valid. The code byte 
for GOTO is changed to GOOB (see Appendix 
D.1) if the branch goes outside the current 
block. 


References are checked if they appear 
where a file is expected. Items in data 
lists are checked for validity, and Data 
Element Descriptors (DEDs) and symbol bits 
are set on for all variables found in the 
lists. 


Any errors which are found cause diag- 
nostic messages to be generated and dummy 
references to be placed in the text in 
place of erroneous references. 


Phase FK 

Phase FK scans the attribute collection 
area for entries with the SETS attribute. 
The SETS lists in the dictionary entries 
are scanned, and their syntax checked. 
Identifiers are counted and replaced by 


their dictionary references. Constants are 
counted, converted to binary, and arranged 
in ascending order in the dictionary entry. 


Phase FO 


Phase FO makes a dictionary entry for 
each ON condition mentioned inside a block. 
For ON CHECK conditions multiple dictionary 
entries are made (see Appendix C.7), one 
for each BCD. If a similar condition is 
mentioned more than once ina block, only 
one dictionary entry is made for that 
condition, except for file conditions, ON 
CONDITION, and ON CHECK, when separate 
dictionary entries are made for each dif- 
ferent BCD name. 


SIGNAL and REVERT statements are treated 
in a similar manner to ON statements. 


The dictionary entries for each BCD name 
associated with file or CONDITION condi- 
tions are checked and, if in error, the ON, 
SIGNAL, or REVERT statement is replaced by 
an error statement. 
is generated. 


The BCD name of each file entry referred 
to in ON, SIGNAL, and REVERT statements is 
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A diagnostic message. 


examined. If the BCD is SYSIN or SYSPRINT, 
the dictionary reference of the file entry 
is placed in а slot in the communications 
region. 


made to ensure that formal 
parameters do not appear in CHECK and 
NOCHECK lists. A single dictionary entry 
is created for each CHECK and NOCHECK list 
and a pointer to the entry is placed in the 
relevant entry type 1. 


A check is 


When dictionary entries are made for 
CHECK lists, one of three different check 
codes is used depending on whether the BCD 
is an ENTRY LABEL, a LABEL CONSTANT, or a 
variable. 


Dictionary entries are also created for 
each ON condition which is disabled for a 
particular PROCEDURE or BEGIN block, and 
for each ON condition whose status is 
changed within the block. Pointers to 
these dictionary entries are placed in the 
relevant entry type 1. 


All dictionary entries for ON conditions 
are placed in the AUTOMATIC chain for the 
relevant PROCEDURE or BEGIN block. 


A further, quite distinct, function of 
this phase is to substitute error state- 
ments for all statements containing dummy 
dictionary references (which have been 
inserted by previous phases on detecting a 
severe error). If a dummy reference is 
found in the second file, the compilation 
is aborted. 


Wherever an element of a label array is 
initialized by appearing as a statement 
label, an assignment to a compiler label 
has been inserted by the Read-In phase. 
Phase FO checks the validity of each such 
assignment; for each array with this type 
of initialization, a second file dictionary 
entry is made, and all assignments to the 
array are chained. 


Phase FQ 


Phase FQ checks the validity of each 
item in the PICTURE chain in the dictionary 
(see Appendix C.7). 


The precision for each correct picture 
is calculated, together with its apparent 
length, and stored in its dictionary entry. 
A data byte is created in the entry for use 
by Phase FT. 


Invalid pictures cause appropriate diag- 
nostic messages to be generated. 
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Phase FT 


Phase FT performs certain 
tasks. These are as follows: 


housekeeping 


1. The second file entries are scanned 
and pointers to each entry are insert- 
ed in the associated dictionary entry 
(see Appendix С.7). 


2. Each item which has a storage class is 
inserted into the appropriate chain 
for that class (see Appendix C.4). 


3. Constants are placed in the constants 
chain and their apparent precision is 
calculated. Sterling constants are 
converted to pence. 


4, Dimension tables are separated for 
items which are not in structures, but 


which are arrays having similar 
bounds, but with different element 
lengths. 

5. Items which are members of structures 


and which have "inherited" dimensions, 
i.e. are contained in a structure 
which itself is dimensioned, are made 
to inherit their dimensions. If a 
base element of a structure inherits 
dimensions which are not constant, 
second file statements (see Appendix 
D.8) are set up to initialize the 
bounds in tne object time dope vector. 


6. Items which have expressions to be 
evaluated at prologue time, e.g. par- 
ameter descriptions for entry points 
and defined items, are placed in the 


AUTOMATIC chain for the appropriate 
block. 
7. Тһе dictionary entry for any item 


described by a picture is expanded by 
the precision and scale or string 
length, extracted from the picture 
table entry. Identifiers of different 
modes sharing the same picture table 
are now placed in separate tables. 


bit (see 
neces- 


8. The ‘dope vector required’ 
Appendix С.5) is set on where 
sary. 


9. When a label array is found which has 
initial label statements for any of 
its elements, the chained statements 
are moved into the second file. The 
original statement is left in the 
text, to be removed by Phase FV. 
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Phase FV 


Phase Fv scans the second file and 


reverses the pointers to the dictionary. 


entries for DEFINED data are 
completed (see Appendix С.4 and C.5). 
Overlay and correspondence defining are 
differentiated between, as are Static and 
dynamic defining. A preliminary check of 
the validity of defining is also carried 
out. 


Dictionary 


When PROCEDURE and BEGIN statements аге 
encountered, any second file statements 
associated with data in the AUTOMATIC chain 
for that block are inserted in the text 
following such statements. 


When ALLOCATE statements are found, any 
second file statements associated with the 
item being allocated are inserted in the 
text following the statement. 


When a reference to dynamically defined 
data is found, the base reference is 
inserted into the text following the 
defined reference. 


When an initial label statement is 
encountered in the main text, it is not 
copied into the output string. 


Phase FX 


Phase FX is an optional phase entered 
only if the XREF or ATR (cross reference 
lister and attribute lister respectively) 
options are specified. It scans the STA- 
TIC, AUTOMATIC, and CONTROLLED chains, and 
the formal parameter lists. 


For each identifier it creates an entry 
in scratch text storage of the form: 


[o ae ee L ppp M pe cee feat oe i pO RAE 1 
| Dictionary |Text reference] Text chain | 
| reference [о this item | | 
et іы Ды. Жыла шшш ЫЫ Кшм къа ала б 1 


This entry is inserted into а chain of 
Similar entries in the alphabetical order 
of the BCD of the identifier. 


If the XREF option is specified, the 
text is scanned for dictionary references. 
When the dictionary reference of an iden- 
tifier is found in the text, an entry is 
created ina chain of entries from the 
dictionary entry of the identifier. 


Eacn member of the chain which rep- 
resents a reference to the identifier, has 
the following form: 


2 bytes 3 bytes 
—  — ЕЕ ЗЕЕ ИЕ eA Ne Pea Ош ы ы ыы эшш 2 
| Statement number | Text chain | 
ака алыс ыы аи dete peces 4 
Each reference chain for an identifier 


is in scratch text storage. 


The sorted chain of identifiers is then 
scanned, and for each entry in the chain 
the following actions take place: 


1. The statement number of the DECLARE 
statement, if any, in which the iden- 
tifier was declared is printed 


2. The BCD of the identifier is printed 


3. If the ATR option is specified, the 
dictionary entry of the identifier is 
analyzed and its attributes are print- 
ed 


4. If the XREF option is specified, the 
reference chain for the identifier is 
scanned, and the statement number con- 
tained in each entry is printed 


Finally, all scratch storage is released 
and control is passed to the Pretranslator 
Phase. 


THE PRETRANSLATOR LOGICAL PHASE 


The purpose of the Pretranslator Phase 
is to expand those statements in the lan- 
guage that can be broken down into simpler 
statements, and to insert explicitly gener- 
ated statements in place of implied ones. 


Second level markers (see Appendix D.1) 
are removed from internal compiler codes, 
and some of the I/O statements are changed 
into a form more suitable for the pseudo- 
code phase. 

Argument lists are examined and the 
matching of arguments with parameter 
descriptions takes place, with temporary 
variables being created where necessary, 
e.g., where data conversions are required. 


ON CHECK 
to the 


contains 
calls 


If the compilation 
conditions the appropriate 
library routine are provided. 


Any structure assignments containing the 
BY NAME option are processed. 


If any structure assignment statements 
or structures in I/O lists are detected in 
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the program, they are expanded into scalar 
assignments and DO groups. 
If the program contains any array 


assignments, or array expressions in I/O 
lists, these are expanded into DO loops and 
scalar assignments or expressions. 


If the program contains iSUB references, 
the subscripts are computed for the base 
array corresponding to the subscripts given 
for the defined array. 


Additions to the Text 


In addition to changing the content of 
the text, the Pretranslator introduces some 
new symbols and grammatical forms into the 
source text. These are as follows: 


Ihe Umbrella Symbol: this is designat- 
ed by the symbol code X'5E', which is 
used to introduce a literal as an 
Operand. It is used only as a bound of 
a DO loop, or in a call of the dope 
vector pseudo-variable. 


Statements within statements: a list 
Of statements may be introduced within 
another statement. In this case the 
inserted list is enclosed in parenthe- 
Ses. Statements in the list are given 
no statement number field, but they 
have semi-colons at the. end. 


I/O statements: the form of I/O state- 
ments is changed considerably during 
the pretranslator phases, as explained 
in the description of Phase GA. 


BUY апа SELL statements: Special 
statements are introduced for manipula- 
ting temporary storage at object time; 
they have a form similar to ALLOCATE 
and FREE Statements. 


Iemporary Storage:  Pretranslator phas- 
es create temporary variables for func- 
tion and procedure calls where the 
arguments do not match the final param- 
eters, where expressions appear as 
arguments, for control variables for DO 
loops in array and structure assign- 
ments, and for iSUB defined subscript 
lists. The Pretranslator has no mecha- 
nism for evaluating expressions. 
Therefore, temporaries which have no 
data type are created for expression 
arguments with no parameter descrip- 
tion. The data type of these temporar- 
ies is completed by the Translator 
generic phase when the resultant data 
type of the expression has been deter- 
mined. 
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When the Pretranslator creates а  tem- 
porary from an argument which contains 
any array with adjustable bounds or 
adjustable string length, compiler 
functions (see Appendix D.8) are gener- 
ated in-line, to set up the adjustable 
quantities at object time, to enable 
Storage of the correct size to be 
acquired by means of the BUY statement. 


The temporary variables created by the 
Pretranslator have dictionary entries 
similar to variables declared іп the 
source program, except that the tempo- 
raries do not have BCD names. 


Phase GA 

Phase GA removes all second level  mark- 
ers from internal character codes (see 
Appendix. D.1). It then reorders the 


options so that either EDIT, DATA, or 
options appear last. 


LIST 


In data lists the DO specification is 
moved so that it precedes the relevant 
list, and the END statement is added. 


In format lists iteration. factors are 


expanded. 
Phase GK 

Phase GK scans the source text for 
function references. ‘If it finds one, it 


inserts a special marker byte before the 


argument list, followed ру: 


1. А code byte giving information about 
the type of function, and whether it 
was called with the TASK option 


2. The current statement number 
3. The current block level and count 


This phase also inserts a special argu- 
ment marker before each argument in the 
list, followed by the reference of the 
corresponding parameter and a code byte to 
show whether. or not the argument is speci- 
fied in a SETS list. The number of argu- 
ments present is checked against the number 
given as required by the corresponding 
dictionary entry. 
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Phase GP 


Phase GP scans the text for procedure 
and function calls with arguments. These 
are detected by the special markers insert- 
ed by Phase GK. 


Temporaries (see Appendix C.4) are 
created for any arguments which are expres- 
sions. (An expression is defined ав being 
any sequence of variables and operators, 
other than single variables followed only 
by а subscript list, or only by a defined 
subscript list and then a subscript list). 
If a parameter description has been 
declared іп ап entry declaration, the tem- 
porary which is created is of the same type 
as the parameter description. Otherwise, a 
"chameleon' temporary of unspecified data 
type is created, its type being subsequent- 
ly completed when the expression type has 


been determined by the Translator generic 
phase. 
Expressions are scanned for arrays 


(including partially subscripted arrays), 
structures, or the end of the expression, 
in order to determine the highest form of 
aggregate in the expression, so that the 
correct type of temporary may be created. 


Where the expression contains a partial- 
ly subscripted array, a temporary is creat- 
ed with a dimensionality equal to the 
number of cross sections specified in the 
subscript list. 


When single arguments are specified 
together with parameter descriptions, the 
arguments are compared with the parameter 
description. If there is a lack of match, 
action пау be taken in one ОҒ two ways. 


1. ТЕ the data types are 
warning message is 
temporary is created 


compatible, a 
printed, and a 


2. ТЕ the data types are incompatible, а 
Severe error message is printed, and 
the parameter description is ignored 


When the argument is a single partially 
subscripted array which matches the param- 
eter, a special temporary is created which 
has the same dimensionality as the number 
of cross sections in the subscript list, 
and it appears to be defined upon the 
Original argument. Code is then generated 
to initialize the temporaries, multipliers, 
and virtual origin from the dope vector of 
the original argument and the subscript 
list. Similar action is taken for partial- 
ly subscripted structures. 


Whenever a temporary is created, a BUY 
statement contained in nested statement 
brackets is inserted in the output text, 


followed by the assignment of the 
Sion or non-matching argument to the tem- 
porary. After the end of the PROCEDURE or 
function call, all the temporaries generat- 


expres- 


ed in the call are released by means of a 
SELL statement in nested statement  brack- 
ets. 


Temporaries are created for constants 
which are specified as arguments to func- 
tions defined by the programmer. 


If GENERIC entry labels are specified as 
arguments to procedures, a special dic- 
tionary entry is made which contains the 
argument and parameter description  dic- 
tionary references, to enable the Transla- 
tor generic phase to select the correct 
generic member. 


A warning message is printed whenever a 
temporary is created for an item declared 
in a SETS list. 


When subscript lists for the number of 
cross sections are being checked, a severe 
error message is printed if а subscript 
list contains too many subscripts, and the 
Statement is deleted. 


Phase GU 
Phase GU scans the source text for 
PROCEDURE, BEGIN, and END statements, and 


for statements that may raise a 


CHECK condition. 


possible 


A list of all items currently checked is 
extracted from the CHECK and NOCHECK lists 
present in PROCEDURE and BEGIN statements. 


Items contained in statements that may 
raise a CHECK condition are examined and 
compared with the list of currently checked 
items. If the item appears in the list, a 
SIGNAL CHECK statement is created for it, 
either before the statement concerned (for 
labels and entry names) or after it (for 
variables). 


Phase HF 


The purpose of phase HF is to detect 
structure assignment statements, possible 
structure expressions in data lists in GET 
and PUT statements, and nested statements, 
in particular nested structure assignments. 


The leftmost structure in an expression 
or assignment is used as а basis for 
comparison, and if similar structuring is 
not found throughout the expression or 
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assignment, diagnostic messages are issued. 
Any expression containing no structures is 
left unchanged. 


The base elements of the structures are 
found, and if the referenced structures are 
dimensioned, a temporary is created for 
each diménsion. It is then added to the 
AUTOMATIC chain for the appropriate block. 
Iterative DO loops are constructed, with 
the temporaries iterating between the upper 
and lower bounds of that particular dimen- 
sion. Base elements are assigned, with the 
temporaries as subscripts, and with scalars 
remaining unchanged. END statements are 
created for the DO loops, and SELL state- 
ments for the temporaries. The statements 
which have been created are nested within 
the original statement. 


Phase HK 


The purpose of Phase HK is to detect 
array or scalar assignments, possible array 
expressions in І/О lists іп GET and PUT 
Statements, and nested statements, іп  par- 
ticular nested assignment statements. 


The leftmost array in an expression, or 
the leftmost array or scalar in an assign- 
ment is used as a basis for comparison, and 
if similar dimensions or bounds are not 
found in the array references, diagnostic 
messages are issued. Any expression con- 
taining only scalars is left unchanged. 


For every dimension in an array а tem- 
porary is bought and added to the AUTOMATIC 
chain for the appropriate block. Iterative 
DO loops are constructed, with the tempo- 
raries iterating between the lower and 
upper bounds of that particular dimension 
of the array. The assignment statement is 
added to the output string with additional. 
subscripts where necessary. END statements 
are created for the DO loops, and SELL 
statements for the temporaries. 


which have been created 
are nested within the original statement, 
which is changed to a null statement, 
except when it was a scalar assignment. 


The statements 


The syntax of pseudo-variables is also 


checked. 


Phase HP 


Phase HP scans the source text for 
references to items defined using iSUBs. 
For each reference found, the subscripts 


are computed for the base array correspond- 
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ing to the subscripts given for the defined 
array. 


The base subscripts are assigned to 
temporaries specially created for this pur- 
pose. The reference, with its subscript 
lists replaced by a list of these temporar- 
ies, is added to the text string. 


THE TRANSLATOR LOGICAL PHASE 


The Translator Phase consists of two 
physical phases, the stacker phase and the 
generic phase. The purpose of the Transla- 
tor is to convert the output from the 
Pretranslator into а series of "triples" 
(see Appendix D.4). A "triple" is іп the 
form of an operator followed normally by 
two operands. ! 


The translation is achieved by using а 
double stack, with one part for operators, 
and the other part for operands, and 
asSigning two weights to each operator. 
One weight (the stack weight) applies to 
the operator while it is in the stack, and 
the other weight (the compare weight) 
applies when the operator is obtained from 
the input string. 


When an operator is obtained from the 
input string it is compared with the top 
stack operator. Depending on the result of 
the comparison, one or other of the two 
operators is switched on to determine what 
action 15 next to be performed. Apart from 
some special cases, this action is usually 
either to continue to fill the stack, or to 
generate а triple. The special cases lead 
to various manipulations of the stack 
items, after which the translation process 
continues. 


For the purposes of translation, the 
input text to the translator is considered 
to consist of operators and operands only. 
This means that I/O options, etc., are 
regarded as operators. 


After translation, the text string con- 
sists of operands and operators. Ail 
Statements start with an operator to indi- 


cate a statement number or label, followed 
by the statement type, which may be a 
Single operator, as in the case of RETURN 


or STOP, or which may be an operator such 
as a function or subscript marker, followed 
by a list of arguments. This list may also 
include compiler generated Statements, 
e.g., DO loops for І/О lists. А11 I/O 
options are regarded as operators and 
require no markers before them. The end of 
the source text will be marked by a special 
operator, and compiler generated code, 
which may foilow this end-of-program  mark- 
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er, will appear between the marker and the 
Special second-end-of-program marker. The 
end of a block of text will be marked by an 
EOB operator. The program is now assumed 
to be syntactically correct. 


Phase IA 


Phase IA rearranges the source text into 
a prefix form, in which parentheses апа 
Statement delimiters have been removed, and 
the operations within a statement have been 
so arranged that those with the highest 
priority appear first. 


As operators and operands are encoun- 
tered, they are stored in stacks. Tables 
give the priority of each operator as it 
appears in the input text and in its stack. 


When an operator is found during the 
scan of the source text, its compare weight 
(see Appendix D.4) is tested against the 
Stack weight of the top operator in the 
Stack. If the compare weight is the lesser 
of the two, then action is taken according 
to the compare operator. This is referred 
to as the compare action. Similarly, if 
the compare weight for the current operator 


found in the scan is greater than or equal 
to the stack weight of the top stack 
operator, action is taken according to the 


This is referred to as 
the stack action. Normally, the compare 
action is to place the compare operator in 
the stack, and to continue the scan,  plac- 
ing any subsequent operand in the stack 
until another operator is found. Тһе nor- 
mal stack action is to generate a triple, 
consisting of the top operator in the stack 
and the top two operands, eliminating the 
items from the stack, and inserting a 
special flag as the operand of the triple 
which is now at the top of the stack. The 
source (compare) item is then compared with 
the new top stack item. 


top stack operator. 


The output text of the stacking phase is 
in the form of a series of triples, i.e. 
statement types with no operands, and oper- 
ators with one or two operands. If the 
result of a triple operation is to be used 
in a later triple, the appropriate result 
is flagged accordingly. 


Certain phases are marked wanted or not 
wanted at this stage. If the source text 
contains an invocation by CALL or function 
reference, Phases IL and IM are marked 
wanted. If it does not, Phases IL, IM, IN, 
IO, IP, IQ, MG, MH, MI, MJ, MK, MM, MN, and 
MO are marked not wanted. Phases MB and MC 
are marked wanted when the source text 
contains pseudo-variables or multiple 
assignments; otherwise, they are marked not 


wanted. The DO loop processing phases (LG 
and LH) are marked in co-operation with the 
dynamic initialization phases (LB and LC). 
If LB and ІС are requested, the marking of 
LG and LH is left until that stage of 
compilation; otherwise, LG and ІН are 
marked by Phase IA independently. 


Phase IG 


Phase IG is an optional phase which is 
loaded to process array and structure argu- 
ments to built-in functions. When aggre- 
gate arguments are given for built-in func- 
tions they are expanded by the structure 
and array assignment phases so that the 
built-in functions appear as base elements, 
subscripted where necessary. 


Phase GP examines these arguments, and 
ascertains whether it is necessary to 
create a dummy. If it is necessary, a 
scalar dummy is created, but the assignment 
of the argument expression is not inserted 
in the text, as this would be an invalid 
aggregate assignment. 


Phase IG examines the text for a BUY 
Statement for a dummy for an aggregate 
argument to a built-in function, and then 
inserts an assignment triple in the correct 
| place in the text. 


Phase IL 


This phase immediately precedes the main 
generic phase. Its function is to obtain a 
block of scratch storage and place the 
entire built-in function table in that 
area. The starting address of this table 
is then 


is released to the main generic processor. 


Phase IM 


Phase IM scans the source text for 
procedure invocations by a CALL statement, 
procedure or library invocations by a func- 
tion reference, and assignments to 
"chameleon" dummy arguments (see Phase GP). 


Any procedure which is generic and is 
invoked by a CALL statement or function 
reference is replaced by the appropriate 
family member. If the invoked procedure is 
non-generic, it is ignored. A generic 
library routine invoked by a function ref- 
erence is also replaced by the appropriate 
family member. 
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placed in a register, and control 


The arguments passed to library routines 
are checked for number and type, and a 
conversion inserted where necessary and 
possible. 


The type and location of the result of 
all function invocations is placed in the 
text which follows the end of the text 
which invoked the function. The resulting 
type of an expression assigned to a 
"chameleon" dummy is determined and set in 
the dictionary entry which relates to the 
dummy. 


THE AGGREGATES LOGICAL PHASE 


consists of two 
structure processor 
DEFINED chain check 


The Aggregates Phase 
physical phases, the 
(phase JK) and the 
(phase JP). 


The structure processor phase carries 
out the mapping of structures and arrays in 
order to align elements on their correct 
storage boundaries. 


The DEFINED chain check ensures that 
items DEFINED on arrays and structures сап 
be mapped consistently. 


Phase JK 


Phase JK scans the AUTOMATIC, STATIC, 
and CONTROLLED chains for arrays, struc- 
tures, adjustable length strings, and 
DEFINED items. 


For the base elements of structures 
without adjustable bounds or string 
lengths, the following calculations are 
made: 


The offset from the start of the major 


structure 

The padding required to align the ele- 
ments on the correct boundary 

All multipliers of arrays of struc- 
tures. 

For all minor structures and major 


structures the following calculations are 


made: 
Size 
The offset from the preceding alignment 


boundary with the same value as the 
maximum appearing in the structure 
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Where a structure contains adjustable 
bounds or string lengths, code is generated 
to call the Library at object time. 


For arrays, the multipliers are calcu- 
lated, unless the array contains adjustable 
items, in which case the Library performs 
the calculations. 


For adjustable 
strings, 


structures,  arrayS, Or 
code is generated to add a symbol- 
ic accumulator register into the virtual 
origin slot of the dope vector, and the 
accumulator register is incremented by the 
Size of the item. 


Calculations are made in a Similar 
fashion for arrays of strings (in struc- 
tures or otherwise) with the VARYING attri- 
bute. In addition, code is generated to 
set up an array of string dope vectors 
which refer to the individual strings in 
the array using the dope vector. Code is 
also generated to convert the original dope 
vector to refer to the array of string dope 
vectors, instead of to the storage for the 
array. 


DEFINED 
lowing way: 


items are processed in the fol- 


Code is generated to set the multipii- 
ers and virtual origin address of cor- 
res pondence defined arrays without 
iSUBs in the dope vector of the DEFINED 


items from the defining base dope  vec- 
tor. 
Code is generated for overlay defined 


items where either the DEFINED item, 
the base, or both are adjustable. The 
code first maps the DEFINED item, if 
necessary, calculates the address of 
the start of the storage to be used by 
the DEFINED item, and finally, relo- 
cates the DEFINED item using this 
address. 


Dope Vector Descriptor dictionary 
entries and Record Description dictionary 
entries are made for items which need to be 


mapped at object time, or which appear in 
RECORD-oriented input/output statements. 


Phase JP 
Phase JP scans the DEFINED chain, and 
differentiates between the following: 
1. Correspondence defining 
2. Scalar overlay defining 
3. Undimensioned structure overlay defin- 


ing 
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4. Mixed Scalar-array-structure-string 
class overlay defining 

In correspondence defining, this phase 
differentiates between arrays of scalars 
and arrays of structures. It also checks 
that the elements of the defined item may 
validly overlay the elements of the base 
belong to the same defining class, and that 
the base is contiguous. 


In scalar overlay defining, 
checks that the 
overlay the base. 


this phase 
defined item may validly 


For undimensioned structure overlay 
defining, this phase checks that the ele- 
ments of the defined item may validly 
overlay the elements of the base. 


For mixed scalar-array-structure-string 
Class overlay defining, this phase checks 
that all elements of the defined item and 
all elements of the base belong to the same 
defining class (bit or character), and that 
the base is contiguous. 


ІНЕ PSEUDO-CODE LOGICAL PHASE 


The Pseudo-Code Phase accepts the output 
of the Translator Phase, and converts the 
triples into a series of machine-like 
instructions. The transformation into 
pseudo-code is achieved by а series of 
passes through the text; each pass removes 
certain triples and replaces them by 
pseudo-code, until the entire text is in 
pseudo-code form. Оп completion of this 
phase, control is handed to the Storage 
Allocation Phase in the output stage. 


Pseudo-code is essentially a one-for-one 
symbolic representation of machine code, 
designed so that it can be transformed 
directly into executable machine code by an 
assembly process. 


Pseudo-code is constructed in basic 
units, the majority of which have a stand- 
ard size of three or five bytes. А varia- 
ble sized unit, however, is also available 
to allow flexibility, its length being 
Specified by a length code within the unit. 
The formats of pseudo-code instructions are 
shown in Appendix D.6. 


A unit consists of a one-byte operation 
code followed by normally, a two- or four- 
byte field, or on the other occasions by a 
variable length field. The bit pattern of 


the operation code 
unit which it heads. 


indicates the type of 


Pseudo-Code Items 


In addition to there being опе  pseudo- 
code item for each machine instruction 
which could be generated, there are also 
pseudo-code items which are produced to 
convey information from one phase of the 
compiler to another. 


These items of information have the same 
format as a pseudo-code item, so that the 
handling and scanning of the source text is 
standardized. They do not, however, appear 
in the final object code. 


Register Description 


In all cases where a general purpose 
register appears in pseudo-code, it will be 


described symbolically. When conventional 
registers are required in, for example, 
calling sequences, the registers will be 


referred to physically, as they will be in 
all cases of floating-point register usage. 


The Use of Symbolic Unassigned Registers 


Whenever a new register is required 
while pseudo-code is being generated, a 
symbolic register counter is incremented by 
one and, subject to this new value not 
being greater than 16,383, it is used as 
the symbolic name of the required register. 
When this register is no longer required a 
DROP pseudo-code item is inserted into the 
text to indicate to the Register Allocation 
Phase that the physical register allocated 
to this symbolic register may be 
reassigned. 


The Use of Physical Registers 


Physical general purpose registers will 
be used either as arithmetic registers or 
aS parameter registers. 


With arithmetic registers, it is the 
responsibility of the pseudo-code genera- 
tion phases to save and restore the reg- 
isters as necessary. This will apply both 
to the general purpose arithmetic registers 
(namely 14 and 15) and to the four 
floating-point registers. Although this is 
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of primary interest to the expression 


evaluation phases, it should be realised 
that all phases which generate calling 
sequences must be aware of the current 


Status of arithmetic registers, and gener- 


ate code to save and restore them as 
necessary. 
In the case of parameter registers, 


however, the Register Allocation Phase will 
be able to save and restore them as 
required. 


Temporary Descriptors 


As expressions are evaluated, a Series 
of intermediate temporary results are 
obtained. These results, or their ‘address- 
es, may be contained in symbolic or 
assigned registers, in a dictionary ref- 
erence, with or without an index register, 
or in workspace. Temporary descriptor tri- 
ples (TMPD) are inserted in the text to 
enable the correct pseudo-code instructions 
to be generated from the triples. The 
format of TMPD triples is described in 
Appendix D.9. 


Temporary Workspace 


A block of temporary workspace is used 
to store intermediate results obtained in 
evaluating expressions at object time. 
Pseudo-code phases allocate the next avai- 
lable workspace location within the block, 
and then update the location pointer, 
whenever the necessity to save an inter- 
mediate result arises. The location of the 
intermediate result is then described for 
later phases by a TMPD in the text. Inter- 
mediate results are only required during 
the execution of single PL/I statements; 
they are never preserved from one statement 
to another. 


At the end of the pseudo-code phases the 
maximum size of the temporary storage 
required in each PL/I program block is 
placed in a dictionary entry. The required 
amount of workspace is then allocated in 


each Dynamic Storage Area (DSA) by Phase 
PT. 
Phase LA 


Phase LA is а utility phase which 
remains in storage during the whole of the 
Pseudo-Code Phase. It provides the main 
scanning ` routines to handle input and out- 
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put text during the Pseudo-Code Phase. If 
a triple spans input blocks, then the part 


of the triple in the first block is copied 
into the first four bytes of the second 
block, to enable a complete triple to be 


returned to the user. 


The routine/subroutine directories іп 
this publication give a complete list of 
the routines provided, together with brief 
descriptions of their functions. 


Phase LB 

Phase LB scans through the text for 
PROCEDURE, BEGIN, and ALLOCATE statement 
triples. 


Whenever one of these is found, а scan 
is made through the immediately succeeding 
second file statements; this is to permit 
the future initialization of AUTOMATIC and 
CONTROLLED arrays. 


On completion of this secondary scan, 
the action taken depends on which triple 
was originally found: 


1. For PROCEDURE or BEGIN triples, a scan 
is then made of the AUTOMATIC chain in 
the dictionary. For any scalar varia- 
bies that have been declared INITIAL, 
a set. of triples is created and 
inserted into the text. 


2. For ALLOCATE triples, 
is inserted if the 
declared INITIAL. 


a Set of triples 
item has been 


Phase LB also marks Phase LG (DO-groups) 
as wanted or not wanted; this is done in 
co-operation with Phase IA. 


Phase LD 


Phase LD scans the STATIC chain for any 
variables which have been declared INITIAL. 


When a scalar variable is 
phase constructs two 
one for the constant, 
converted constant. 


found, the 
dictionary entries: 
and one for the 


For arrays, the phase scans the initial 
value string, creating an  initialization 
table in the dictionary. Replication fac- 
tors are converted and inserted into the 
table; treatment of the constants is then 
as described for scalar variables. 


Phase OS converts the constants to their 
Specified internal form. 
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Phase LG 


Phase LG scans the text for DO loops. A 
Stack is maintained with each entry соп- 
taining a description of a DO group. The 
Stacking reflects the nesting of the DO 
groups. For each DO or iterative DO triple 
a new entry is made ағ the top of the 
stack. 


DO specification triples are analyzed 
and expressions are assigned to temporar- 
ies; subscripts in the control variable are 
assigned to binary integer temporaries if 
they are themselves variable. At the end 
of each specification, pseudo-code and tri- 
ples are generated to control the loop. 


Triple operators (see Appendix D.4 ) 
peculiar to the specification of DO loops 
are removed from the text. 


For control variables, other than simple 
scalars, text is placed in the DO stack and 
used at every appearance of the control 
variable in the generated text. During 
this time, a scan is also made for pseudo- 
variables, subscripts, functions, and 
argument markers. 


Phase LR 


The purpose of Phase LR is to save space 
during the expression evaluation phase, LS. 
It provides the initialization for Phase LS 
by obtaining 4,096 bytes of scratch storage 
and setting stack pointers. The scan 
phase, Phase LA, is initialized and Phase 
MP is marked. 


The translate table for scanning tri- 
ples, and the constants for expression 
evaluation are included in this phase and 
are moved to the first 1K area of scratch 


storage. Finally, control is passed to 
Phase LS. 
Phase LS 

Phase LS scans the source text to con- 


vert expression triples to pseudo-code. If 
a triple produces a result, it is added to 
the temporary work stack. 


For the arithmetic triples +,-,*,/,**, 
prefix +, and prefix -, the operands are 
combined to give the base, scale, mode, and 
precision of the result. If conversion is 
necessary, an assignment triple, with the 
target and source types as operands, is 
inserted in the text. In-line pseudo-code 


is generated for all operators except ** 
and some complex type * and / operators. 
In these cases, Library calling sequences 
are generated. An intermediate result is 
always produced and the triple is removed 


from the text. 


The operands of comparison triples GT, 
GE, equals, NE, LE, and LT are combined and 
converted as for the arithmetic triples. 
In-line pseudo-code is generated and the 
triple is removed from the text, unless 
both operands are string type, in which 
case a temporary is created. If the next 
triple is a conditional branch, a mask for 
branch-on-false is inserted. Otherwise, 
the result is a length 1 bit string. 


For the string triples CAT, AND, OR, 
NOT, and string comparisons, if an operand 
is zero, TMPD triples, containing the 
intermediate result from the top the stack, 
are inserted in the text after the triple. 
The result is a CHARACTER or BIT string or 
a COMPARE operator. 


When subscript triples appear, a symbol- 
ic register number is inserted іп the 


triple. The result contains the dictionary 
reference of the array and the symbolic 
register. 


For function triples, a description of 
the workspace for the function result is 
inserted in the TMPD triples which follow 
the function triples. The function result 
is added to the intermediate stack. 


For add, multiply, and divide functions, 


the function and argument triples are 
removed from the text. Arithmetic type 
in-line pseudo-code is generated, with 


modifications for the precision and scale 
factor, and the result is added to the 
intermediate stack. 


With  pseudo-variable triples, a special 
marker is added to the intermediate result 
Stack. 


Other triples which may use an inter- 
mediate result, are examined. If an oper- 
and is zero, two or three TMPD triples, 
containing the intermediate result from the 
top of the stack, are inserted in the text 
after the triple. If both operands are 
zero, the TMPDs for the second operand 
precede those for the first operand. 


Phase LV 


Phase LV provides string handling facil- 
ities for the pseudo-code phases. | 
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It converts any type of data item to a 
CHARACTER or BIT string, and an assignment 
triple, with the target and source types 
used as the operands, is inserted in the 
text. 


A string dope vector description is 


produced from a standard string descrip- 
tion. 
Phase LW 

Phase LW scans the source text to con- 


vert string triples to pseudo-code. If a 
result is produced it is added to a stack 
of intermediate string results. 


For the comparison triples GT, GE, 
equals, NE, LE, AND LT, both operands are 
already string type. If one operand is 
zero, the operand is obtained from the 
associated TMPD triples. In-line pseudo- 
code is generated if the operands are of 
known equal lengths less than or equal to 
256 bytes; Otherwise, Library calling 
sequences are generated. The triple and 
any TMPD triples are removed from the text. 


In the 
AND, OR, 
ed to 


case of the string triples CAT, 

and NOT, the operands are convert- 
string type by phase ІМ. zero 
operands are obtained from associated TMPD 
triples. In-line pseudo-code is generated 
when operands are aligned and are of known 
lengths less than or equal to 256 bytes. 
Lengths must also be equal for and/or 
operators; otherwise, Library calling 
sequences are generated. The triple and 
any IMPD triples are removed from the text, 
and the string result is added to the 
intermediate result stack. 


For TMPD triples, if the intermediate 
result described by the TMPD triples is a 
string, a complete string description is 
moved from the top of the intermediate 
stack to the TMPD triples. If the TMPD 
triples do not describe a string, they are 
ignored. 


A Library calling sequence is generated 
for the BOOL function, and the associated 
triples are removed from the text. Sub- 
script and function triples may produce 
intermediate string results. 


Phase MB 

Phase MB scans the text for pseudo- 
variable markers and multiple assignment 
markers. A Stack of pseudo-variable 


descriptions is maintained, together with 
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the left hand side descriptions of multiple 
assignments when they occur. Pseudo-code 
and triples are generated for pseudo- 
variables and the left hand side 
descriptions of multiple assignments are 
put out in the correct sequence. 


Phase MG 


Phase MG identifies functions which are 
to be coded in-line, and generates, in 
their place, the pseudo-code to perform the 
relevant function. This phase appears 
before the normal function processor phase 
and removes all trace of the in-line func- 
tion. 


The scan of the text is conducted by the 
general SCAN routine, and control is handed 
to the present phase when one of the 
following functions is found: 


ALLOCATION FLOOR BINARY 

BIT IMAG DECIMAL 

CEIL REAL FIXED 

CHAR STRING FLOAT 

COMPLEX TRUNC PRECISION 

CONJG UNSPEC 

Control is also passed to this phase if 
ABS is found with real arguments. The 
arguments are collected, and the appropri- 


ate routine is entered to generate the 
pseudo-code. When the end-of-program mark- 
er is encountered the terminating routines 
are entered. 


Phase MI 


Phase MI identifies functions which are 
to be coded in-line, and generates , in 
their place, pseudo-code to perform the 
relevant function. This phase appears 
before the normal function processor phase 
and removes all trace of the in-line func- 
tion. 


The scan of the text is conducted by the 


general SCAN routine and control is handed 
to the present phase when one of the 
following functions is found: 

MAX MOD 

MIN ROUND 


If the number of arguments to the MAX or 
MIN functions is greater than these, а 
Library call is generated. 


цц 


РҺаѕе МК 


Phase МК identifies functions which are 
to be coded in-line, and generates, in 
their place, pseudo-code .to perform the 
relevant function. This phase appears 
before the normal function processor phase 
and removes all trace of the in-line func- 
tion. 


The scan of the text is conducted by the 
general SCAN routine, and control is passed 
the present phase when one of the following 
functions is found: 


DIM HBOUND 

LBOUND SIGN 

LENGTH 
Phase ML 

Phase ML scans the source text for 
generic entry name arguments to procedure 
invocations. 

Such entry names may be floating arith- 
metic built-in functions or programmer- 
supplied procedures with the GENERIC 


attribute. When one is found, the correct 
generic family member to be passed is 
selected by this phase, depending on the 
entry description of the invoked procedure. 


Phase MM 


Phase MM scans through the source text 
for procedure invocations by a CALL state- 
ment, or for procedure or Library routine 
invocations by a function reference. 


Procedure invocations are replaced by an 
external standard calling sequence, and 
Library routine invocations are replaced by 


an external or internal standard calling 
Sequence aS appropriate ‘(see Appendix 
D.10). 
Phase MP 

Phase MP reorders the BUY and SELL 


statements involved in obtaining Variable 
Data Areas (VDAs) for adjustable length 
strings or temporaries, which were created 
by Phase GK. On entering this phase, the 
BUY triples precede the code compiled to 
evaluate the length of storage required for 
the VDA. This evaluation code is included 
between further BUYS and BUY triples, which 


themselves are between the BUY triple being 
considered and its associated SELL triple. 
Phase MP extracts these sections of code 
and places them before the BUY triple of 
the adjustable string temporary. Since 
such BUY triples may be nested, the phase 
maintains а count to record the nesting 
status. 


Phase М5 


Phase MS scans the source text for 


references to subscripted array elements. 


If references are found, pseudo-code is 


generated to calculate the offset of the 
subscripted element in relation to the 
origin of the array. If necessary, further 


pseudo-code is generated to check the  sub- 


script range. 


Phase NA 


Phase NA generates pseudo-code for the 
following triples: 


For  PROCEDURE' and BEGIN’ triples a 
Library call is generated to the FREEDSA 
routine. 


For RETURN triples a Library call is 
generated, unless a value is to be returned 
as the result of a function invocation, in 
which case code is first generated to 
assign the result to the target field, and 
then the Library call is made. If the 
function may return the result as more than 
one data type, a switch would have been set 
at the entry point to the function, and the 
RETURN statement would test the switch 
value, so that the data type appropriate to 
the entry point is returned. 





GOTO triples either will be invalid 
branches detected by Phase FI, in which 
case they will be deleted, or they will be 
branches to statement label constants in 
the same PROCEDURE or BEGIN block. Іп this 
case, they will be compiled ав опе- 
instruction branches. 

А СООВ (Go Out Of Block) triple is а 
branch to a label variable, possibly 
subscripted, or to a labeli іп a higher 
block than the current one (a branch to a 
lower block is invalid). A call is gener- 
ated to a Library epilogue routine,  point- 
ing at a double-word slot containing the 
address of the label and the Pseudo- 
Register Vector (PRV) offset (for a label 
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constant), or the invocation count (for a 


label variable). 


STOP and EXIT statements are implemented 
Simply by invocation of the appropriate 
Library routine. 


For IF triples, if the second operand is 
an identifier, or the result of an 
expression which is not a comparison, code 
is generated to convert it to a BIT string, 
if necessary. This BIT string is compared 
to zero, either in-line, or by a call to 
the Library. 


The second operand may be a mask which 
will have been inserted by the expression 
evaluation phase as a result of the compar- 
ison specified in the IF statement. This 
mask is put into a generated instruction to 
branch if the condition is not satisfied, 
i.e. either to the ELSE clause or to the 
next statement. 


For ON triples, code is generated to set 
flag bits and update the ON-unit address in 
the double-word ON slot in the DSA. 


For SIGNAL arithmetic condition triples, 
in-line code is generated to simulate the 
condition. For all other conditions, a 
Library error routine is called. 


REVERT triples generate code to set flag 
bits in the double-word ON slot in the DSA. 


Phase NG 


Phase NG generates the calling sequences 
to the Library for DELAY and DISPLAY state- 
ments. 


For  DELAY 
to be a 
necessary, 
sion. 


Statements, the argument has 
fixed binary integer, and, if 
code is generated for conver- 


For DISPLAY statements, the message must 
be a CHARACTER string, or, if necessary, 
converted to one. A parameter list is 
built up to pass to the Library. 


Phase NJ 


Phase NJ and its supporting block, МК, 
generate the calling sequences to the 
Library module for the RECORD-oriented 
input/output statements: DELETE, LOCATE*, 
READ, REWRITE, UNLOCK*, and WRITE. 
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For each of these calls, the information 
contained in the options of the source 
statement is passed by a parameter list, 
constructed as follows: 

DC A(DCLCB) 
DC A(RDV|IGNORE.integer) | 0 
DC A(EVENT.scalar*) | 0 


DC A(KEYTO.SDV|KEYFROM.SDV| 
KEY.SDV) | 0 


DC A(REQUEST_CODES) 
REQUEST_CODES is a full-word containing 


four control bytes with the following mean- 
ings: 


Byte 1 Operation code 
00 READ 
04 WRITE 
08 REWRITE 
ОС DELETE 
10 LOCATE* 
‘14 UNLOCK* 
Byte 2 Group 1 options code 
04 IGNORE 
08 INTO | FROM 
Byte 3 Group 2 options code 
04 КЕҮТО 
08 NOLOCK 
Byte 4 Reserved (currently 00) 


Note that null arguments in the paramet- 
er list or REQUEST_CODES are indicated by 
zeros. 


Both the parameter list and ‘the 
REQUEST_CODES word are constructed in STA- 
TIC storage. However, if the argument of 
one of the options refers to AUTOMATIC or 
CONTROLLED storage, the parameter list is 
moved to the WORKSPACE storage for the 
statement; the argument is then provided 
just before the Library call is made. 


The DCLCB parameter is taken from the 
FILE option of the statement; the FILE 
option must be either a file constant or 
file parameter. 


— Rm «ме ето «м» M ee ee PHP «ә» «шы шо ee «ир «мә 


*Deferred features 
version . 


not included in second 
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The Record Descriptor Vector (RDV) is 
assumed to have been constructed by earlier 
phases, except in the case of CONTROLLED 
strings or CONTROLLED aggregates, when pro- 
cedure is as follows: 


1. For CONTROLLED aggregates, Phase NJ 
creates a Library call, passing the 
following arguments through registers: 


Register 1  A(D.V) 
Register 2 A(DVD) 
Register 3  A(RESULT.RDV.SLOT) 


2. For CONTROLLED strings, the phase gen- 
erates code to construct the RDV in 
the WORKSPACE storage of the state- 
ment, using the dope vector of: the 
string. 


The IGNORE integer is taken from the 
IGNORE option of the statement and if 
necessary, converted to an integer. 


The EVENT scalar is deferred until third 
release. 


The KEYTO SDV is derived from the KEYTO 
option of a READ statement. 


The KEY SDV and KEYFROM SDV are derived 


from their respective options. If neces- 
sary, they are converted to character 
strings. 
Phase_NM 


Phase NM generates the calling sequences 
to the Library modules for OPEN, CLOSE, 
GET, and PUT statements. 


For OPEN and CLOSE statements, a param- 
eter list is constructed from the options 
given. The options are first: checked for 
validity with respect to multiple specifi- 
cations. The arguments on the options are 
checked and converted, if necessary, to the 
correct data type. If no file is specified 
in an OPEN or CLOSE statement, it is 
ignored. The parameter lists are as fol- 
lows: 


OPEN DC A(DCLCB) 
DC A(OCB) 
DC A(TITLE.SDV) 
DC A(CIDENT.SDV) 
DC А(ІрЕМТ.рЕр) 
DC A(KEYLENGTH) 
DC A(LINESIZE) 
DC A(PAGESIZE) 

CLOSE DC  A(DCLCB) 

DC  A(IDENT.SDV) 

DC A(IDENT.DED) 

indicated by 


Null arguments are zero 


address constants. 


For GET and PUT statements, the Library 
call is in three parts. The initializa- 
tion, data transmission (Phase NU), and the 
termination. The initialization call 
requires a parameter list to be constructed 
from the given options. The options are 
checked for legal combinations and the 
arguments examined. 


The parameter list when a file is speci- 
fied is : 


DC A(DCLCB) 
DC A(next statement) 


DC А(Біпагу integer) if SKIP or 
LINE is given. 


For GET and PUT STRING, the argument to 
STRING is checked, and the parameter list 
formed is: 


DC A(SDV of string argument) 

DC A(DED of string argument) 
The termination Library call has no 
parameters. As for the initialization, the 


routine used depends on the options given 
in the statement. 


Phase NT 


This phase, which is a preprocessor for 
Phase NU, has two functions: 
1. Initialization of a block of scratch 
storage for use by Phase NU 
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2. Setting up of INCLUDE matrix and 


Library routine entries for edit- 
directed, STREAM-oriented I/O 
Statements 


The phase contains all pseudo-code skel- 
etons used by Phase NU. 4096 bytes of 
scratch storage are obtained and the 
pseudo-code skeletons are copied into it. 
The address of the scratch area is then 
passed to Phase NU. 


If a flag has been passed from Phase NM, 
indicating the presence of edit-directed 
I/O, a scan of the text is performed. Data 
and format list items encountered during 
the scan are associated as far as possible, 
and a sufficient set of Library modules are 
identified for the edit-directed transmis- 
Sion specified in the program. The INCLUDE 
Matrix is updated and dictionary entries 
are made for the required Library format- 
director routines. 


Phase NU 
Data/format lists in І/О statements 
produce an internal Library calling 


sequence (see Appendix D.10) for each data 
item and format item pair, using registers 
to point at the data item, the data item 
DED, and the FED for the format item. 


Iterations of data items, as in array 
input or output, and of format items, are 
achieved by making DO loops out of the 
iterations. 


The data items are transmitted serially, 
with program flow going from an item in the 
data list, to the corresponding format item 
and then to the relevant Library I/0 
module. Оп return from the Library module, 
control goes to the code for the next data 
item or, in the case of repeated data 
items, to another iteration of the DO loop. 


Remote format statements are executed in 
a Similar way. After the R format item is 
met, control is passed directly from the 
data list to the format statement until the 
end of the format statement. Control then 
returns to the item in the in-line format 
code of the EDIT statement following the 
appropriate remote format item. However, 
if no format elements remain but some data 
list elements are still present, control is 
passed back to the beginning of the format 
statement. 


An R format item referring to a label 
which is not attached to a format state- 
ment, will cause an object time error 
condition to be raised, and the execution 
to terminate. 
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Phase OB 


Phase OB scans through the text for 
compiler functions and compiler  pseudo- 
variables (see Appendix D.8). When a 


compiler function is found, pseudo-code is 
generated to access the operands of the 
compiler functions (e.g., string length, 
array bound), and to place the operand in 
the location specified by the TMPD follow- 
ing the function. Assignments to compiler 
pseudo-variables are treated in reverse; 
the result from the. TMPD following the 
assignment is stored in the array bound or 
string dope vector slot specified in the 
compiler pseudo-variable. 


text for 
and BUY ASSIGN statements. The tem- 
porary operands of these statements are 
examined, and if they are CAD or short 
fixed-length strings, they are allocated 
the next available workspace offset, and 
the BUY and corresponding SELL statements 
are removed from the text. 


Phase OB also scans the 
SELL, 


BUY, 


Phase OE 
Phase OE translates the following tri- 
ples into pseudo-code: 
Assignment 
Multiple source assignment 
Multiple target assignment 
ALLOCATE, FREE, 


BUY, and SELL 


Special assignment 


In-line code is generated for the fol- 
lowing types of ASSIGNMENT triples: 
1. Floating-point to floating-point 
2. Fixed binary to fixed binary 
3. Fixed decimal to fixed decimal 
4. Numeric field to numeric field, if the 


pictures 
identical 


given for the operands are 


5. CHARACTER string to CHARACTER string, 
if the operands are fixed length and 
not more than 256 characters 


6. BIT string to BIT string, if the 
Operands are aligned and multiples of 
8 bits, and not more than 2048 pits 


7. Label to label 
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8. File constant to file parameter 


Library calling sequences are 
for those cases of CHARACTER string to 
CHARACTER string and BIT string to BIT 
string codes not compiled in-line. 


compiled 


All other assignment triples are tran- 
Slated into the CONV pseudo-code macro. 


If the source operand is a constant, the 
type of the target operand is inserted in 
the constant dictionary entry, for process- 
ing by the constant conversion phase, and 
the assignment is translated assuming the 
target type. 


MULTIPLE ASSIGNMENT triples produce the 
same code as for single assignment, except 
that the registers used by the operand 
concerned must not be changed or dropped. 


Library calling sequences are generated 
for ALLOCATE, FREE, BUY, and SELL triples, 
and pseudo-code markers are left in the 
text for insertion of code by Phase QF. 
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target is a varying or adjustable string, 
Storage is obtained if the target is AUTO- 
MATIC, or allocated if the target 15 CON- 
TROLLED. The assignment is then translat- 


ed. 
Phase OG 

Phase OG inserts calling sequences for 
all the calls to the Library conversion 


routines represented by the CONVERT P/C 
items. It also converts to pseudo-code all 
Statement numbers, statement labels, PROCE- 
DURE, BEGIN,  PROCEDURE', BEGIN', and end- 
of-program triples. 


IGN pseudo-code items 
are removed. The 
working space 


and JMP triples 
amount of temporary 
required by each block of 


program is calculated and placed in the 
workspace dictionary entry (see Appendix 
Сз 

The format of the text is converted so 
that а pseudo-code item does not span 
blocks. 


The INCLUDE card matrix is formed for 
all the conversion modules required. 


Phase OS 
Phase OS scans through the constant 
chain in the dictionary and converts the 


constants to the required internal form. 
These are then stored in a constants pool, 
and the offset of each constant from the 
Start of the pool is saved in the dictiona- 
ry entry for that constant. 


To permit the correct alignment of the 
constant pool, three scans are made of the 
constant chain; first to convert all double 
word constants, secondly to convert all 
Single word constants, and thirdly to con- 
vert all unaligned constants. 


In the first two scans only опе pool 
entry is made for constants having the same 
internal form and value. 


A fourth scan is made of the constant 
chain and all constants required to ini- 
tialize static are converted, but instead 
of inserting these constants in the соп- 
Stant pool, they are moved into special 
dictionary entries constructed by Phase LB. 


IHE STORAGE ALLOCATION LOGICAL PHASE 


The purpose of the Storage Allocation 
Phase is to ensure that every item requir- 
ing Storage in a PL/I object program 
obtains a unique location of the correct 
Size, located on the correct boundary. 
Items requiring storage include PL/I source 
program variables, dope vectors, dope vec- 
tor skeletons, temporary variables, work 
areas, data descriptors, symbol tables, 
addressing slots, register save areas, flag 
areas, etc. Storage locations are allocat- 
ed to items in order of descending align- 
ment requirement to avoid wasting storage 
by padding to the required alignment. 


The Storage Allocation Phase is also 
responsible for generating prologues. In 
generating the prologues, expressions which 
determine size of variables, code generated 
by the aggregates phase to initialize dope 
vectors, and code generated by the initial 
values phase, must be extracted and placed 
in the correct sequence in the text. Also, 
when a variable depends for its size or 
initial value upon another variable, the 
requests for dynamic storage must Бе 
arranged so that the dependant variable 
obtains its storage after the variables 
upon which it depends. 


Since all AUTOMATIC and CONTROLLED stor- 
age is obtained dynamically at object time, 
the Storage Allocation Phase generates code 
to relocate dope vectors when the allocated 
Storage address is known. 
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Phase PD 


Phase PD is the first STATIC storage 
allocation phase. It scans the text, and 
for every second file statement encountered 
sets up a pointer in the associated dic- 
tionary which points to the second file 
Statement. It then sorts the STATIC chain 
so that the dictionary entries occur in the 
order in which the storage for their items 
will be allocated. 


Storage is allocated for simple non- 
structured,  non-external variables, RDVS, 
DEDs, SAVE/RESTORE entries, and the BCD of 
entry labels and label constants. Storage 
is also allocated for dope vectors for all 
items іп the STATIC chain requiring them, 
with the exception of EXTERNAL items. 


The external section of the sorted 
STATIC chain is scanned and а 4-byte 
addressing slot is allocated for each entry 
label, label constant, external (entry type 
4) entry, built-in function, or EXTERNAL 
item. For each EXTERNAL item the size of 
the external control section is calculated 
and stored in the dictionary entry. 


The constants chain is scanned and the 
offsets of the storage and dope vectors for 
constants in the constants pool are relo- 
cated. 


The current size of the STATIC INTERNAL 
control section is computed and the result 
is passed via the communications region to 
the next phase. 


Phase PH 


Phase PH is the second STATIC storage 
allocation phase. It scans the AUTOMATIC 
chain and CONTROLLED chain for all items 
requiring a dope vector. 


For each such item a skeleton dope 
vector dictionary entry is generated in the 
STATIC chain (see Appendix C.7). This 
dictionary entry contains a bit pattern 
equal in length to that of the dope vector 
and containing all those values which are 
known at compilation time. In particular, 
it contains as much of the relative virtual 
origin as is known at compilation time, the 
constant bounds and string lengths, and the 
constant multipliers. 


If the item is dynamically DEFINED, then 
the dope vector is preceded by one extra 
four-byte slot. (In the case of structures 
there is one extra slot for each element of 
the structure.) If the item is a dynamic 
temporary (temporary type 2) or a CON- 
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TROLLED scalar string, the virtual origin 
slot is relocated by the length of the dope 
vector. 


In all cases the skeleton dope vector 
dictionary entry is pointed at by the 
dictionary entry of the associated item. 


The sorted STATIC chain is scanned from 
the first skeleton argument list entry. 
For each such entry, space is allocated in 
the STATIC INTERNAL control section accord- 
ing to the assembled length of the argument 
list. The offset of each skeleton argument 
list is stored in the OFFSET1 slot of the 
dictionary entry. 


RDV and DVD entries are found on this 
same scan of the STATIC chain. RDV entries 
are allocated eight bytes; DVD entries are 
allocated the specified length. 


made of the section of the 
containing STATIC INTERNAL 
allocated for each 


A scan is 
STATIC chain 
arrays. Storage is 
array according to its size (computed by 
Phase JK) and the offset of the relative 
virtual origin is relocated to the start of 
the STATIC INTERNAL control section. If 
the array is of the VARYING type and it 
needs a dope vector, then storage is allo- 
cated for the secondary dope vector. The 
number of elements is calculated for  INI- 
TIAL arrays and stored in the associated 
INITIAL dictionary entry. 


The section of the STATIC chain contain- 


ing STATIC INTERNAL structures is scanned. 
Storage is allocated for each structure 
according to the size of the structure 


(computed by Phase JK), and this storage is 
placed on the correct boundary on informa- 
tion supplied by Phase JK. The structure 
member chain for each structure is scanned 
and the relative offset of each member is 
relocated to the start of the STATIC INTER- 
NAL control section. Further, on the 
structure member scan, secondary dope vec- 
tors are allocated when required, апа the 
number of elements is calculated for INI- 
TIAL arrays. 


Phase PL 


Phase PL scans the STATIC, AUTOMATIC, 
CONTROLLED, structure, and PROCEDURE block 
chains for variables which require storage 
for their symbol tables and/or data element 
descriptors. 


When a variable is found which requires 
a symbol tabie, the variable is joined onto 
the chain of symbol variables for the 
particular block. A symbol table dictiona- 
ry entry is created for the variable (see 


50 


Appendix C.7), and a chain is set up to and 
from the dictionary entry for the variable. 
The new dictioríary entry is joined onto the 
STATIC chain. 


The size of the symbol table is calcu- 
lated, and its offset from the start of the 
STATIC control section is stored in the 
symbol table dictionary entry. Throughout 
the allocation of STATIC storage a location 
counter is maintained to contain the next 
free location in STATIC; this counter is 
increased appropriately. 


All symbol variables require a DED and a 
branch is taken to the routine which allo- 
cates them. 


When a variable is found which requires 
a DED, it is determined whether or not the 
DED describes a standard type; there are 
eight standard types, which consist of the 
different kinds of real coded arithmetic 
data that can be obtained by the combina- 
tion of the attributes FIXED/ FLOAT, 
BINARY/DECIMAL, LONG/SHORT (default preci- 
sions only). 


If the DED is of a standard type, a 
check is made for an identical DED that may 
have already been encountered, so that 
there wili be only one allocation of stor- 
age for апу one type of standard DED. If 
the DED is not of a standard type, it is 
allocated storage of its own. 


If the variable does not already have a 
symbol table dictionary entry (which con- 
tains space for DED information), a DED 


dictionary entry is constructed, and the 
offset of the DED in the STATIC control 
section is stored in it. A pointer in the 


new entry in the dictionary entry for the 


variable is also set up. 
When 


all data element descriptors and 


symbol tables in the compilation have been 
processed, all STATIC storage has been 
allocated and the total size of the STATIC 


control section is placed in a slot in the 
communications region. 


Phase PP 


Phase PP extracts all ОМ condition 
entries and places them at the head of the 
AUTOMATIC chain. It then extracts all 
temporary variable dictionary entries from 
the AUTOMATIC chain and places them in the 
zone following the ON conditions in the 
chain. 


All dictionary entries which are totally 
independent of any other variable are 
extracted, and also. placed in the zone 
following the ON conditions. 


The phase tnen extracts all dictionary 
entries which depend upon some other varia- 
ble in containing blocks or in the zones 
already extracted, and places them in the 
next following zone. Dependency includes 
expressions for string lengths, expressions 
for array bounds, expressions for INITIAL 


iteration factors, and defined dependen- 
cies. This is repeated recursively until 
the end of the chain. If some variable 


depends upon itself, a warning message is 
issued. 


A special zone delimiter dictionary 
entry is inserted between each zone in the 
AUTOMATIC chain (see Appendix C.7). A code 
byte is initialized in the delimiter to 
indicate to Phases PT and QF whether its 
following zone contains any variables which 


require storage (і.е., it does not consist 
entirely of DEFINED items, which do not 
require storage), and whether or not the 


following zone contains any arrays of VARY- 
ING strings. 


Phase PT 


Phase PT allocates AUTOMATIC storage, 
Scans the CONTROLLED chain, and determines 
the size of the largest dope vector. It 
scans the entry type 1 chain, and for each 
PROCEDURE block or BEGIN block it allocates 
storage for a DSA and compiles code to 
initialize the DSA. 


A two-word slot іп the DSA 15 allocated 
for each ON condition in the block, and 
code is compiled to initialize the slot. 
Space for the addressing vector and work- 
Space in the DSA is also allocated. 


The AUTOMATIC chain is scanned and dope 
vectors are allocated for the items requir- 
ing them. Code is compiled to copy the 
skeleton dope vector, and to relocate the 
address in the dope vector. 


Storage is allocated for addressing tem- 
poraries type 2 and for addressing con- 
trolled variables, and for the parameters 
chained to the entry type 1. 


The first region of the AUTOMATIC chain 
is scanned and storage allocated for double 
precision variables, single precision vari- 
ables, CHARACTER strings, and BIT strings, 
‘in that order. 


The first region of the AUTOMATIC chain 
is scanned and storage allocated for 
arrays, relocating the virtual origin. For 
arrays of strings with the VARYING attri- 
bute, the secondary dope vector is also 
allocated and code is compiled to initial- 
ize the secondary dope vector. Correctly 
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aligned storage is allocated for struc- 
tures. If a structure contains any arrays 
of strings with the VARYING attribute, the 
storage for the secondary dope vector is 
allocated at the end of the structure. 


A pointer is set up in the AUTOMATIC 
chain delimiter to the second file state- 
ment which has been created. 


The remaining regions of the AUTOMATIC 
chain are scanned and code is compiled to 
obtain a Variable Data Area (VDA) for each 
region. Code is compiled to copy the 
skeletons into the dope vectors and to 
relocate the addresses in the dope vectors. 
During this pass, storage is allocated for 
DEFINED items. 


Phase OF 
Phase QF, which constructs prologues, 
scans that text which is in pseudo-code 


form at this time with  end-of-text block 


markers inserted. 


When a statement label pseudo-code item 
is found, it is analyzed and one of three 
things happens: 


1. The item is saved if it relates toa 
PROCEDURE statement 


2. The item is omitted if it relates toa 
BEGIN or ON block 


3. The item is passed if it relates to 
neither of the first two conditions 


When a BEGIN statement is found, a 
Standard prologue of simple form is gener- 
ated, and code is inserted from second file 
Statements (if there are any) to initialize 
the DSA, allocate VDAs and initialize VDAs. 


When a PROCEDURE statement is found, it 
is first determined whether it heads an ON 
block or a PROCEDURE block. If it is an ON 
block, a standard prologue (similar to that 
for a BESIN block) is generated. If it is 
a PROCEDURE block, a specialized prologue 
is generated, dependent on the number of 
entry points, the number of entry labels on 
a given entry point, the number of paramet- 
ers on each entry point, and whether the 
PROCEDURE is a function. 


The code generated by the prologue con- 
struction phase is partly іп pseudo-code 
and partly in machine code. The machine 
code (which is delimited by special pseudo- 
code items) has the same form as the code 
produced by the Register Allocation Phase 
(see Appendix D.7). 
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At the end of the prologue, the 
statement label item saved earlier is 
inserted to mark the apparent entry point. 
Code is produced to effect linkage to BEGIN 
blocks in such a way that general register 
15 contains the address of the entry point, 
and general register 14 contains the 
address of the byte beyond the BEGIN epilo- 
gue. 


At the end of the text, any text blocks 
that are not needed are freed, and control 
is passed to the next phase. 


Phase QJ 


Phase QJ scans the text for ALLOCATE, 
FREE, and BUY statements. 


On finding an ALLOCATE statement, a 
routine is called which does a ‘look ahead' 
for initialization statements associated 
with the allocated variable, e.g., adjusta- 
ble array bounds or adjustable string 
lengths, and places the text references of 
each statement in the dictionary entry 
associated with each statement. 


If the allocated item has a dope vector, 
code is generated to move the skeleton dope 


vector generated by Phase PH into a block 
of workspace in the DSA of the current 
block. 

Any adjustable bound expressions or 


string length expressions are then extract- 
ed from the text references, and the 
expressions are placed in-line in the text. 


Any information required from previous 
allocations (specified by * in the ALLOCATE 
statement) is extracted from the previous 
allocation, and copied into the workspace. 


Code generated by Phase JK to initialize 
multipliers, etc., is extracted and placed 
in-line, after first loading the variable 
storage accumulator with the dope vector 
size. Phase JK generates code to increment 
the accumulator register by the size of the 
item. 

Ii the item has no adjustable paramet- 
ers, code is generated to increment the 
accumulator by the size calculated at com- 
pilation time. If this size is greater 
than 4,096, Phase JK generates a constant 
dictionary entry, which is used in this 
code. 


If the item has any arrays of varying 
Strings, the size of the array string dope 
vector is added to a second accumulator 
register. Code is generated to add the two 
accumulators into the second one, which is 
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a parameter to a Library routine. A rou- 
tine is then called which extracts the 
Library call inserted by pseudo-code and 
places it in-line in the text. 


Code is inserted after the Library call 
to initialize the dope vector in workspace 
to point to the allocated storage. Code is 
generated to transfer the dope vector from 
the workspace to the allocated storage. 


Any initial value statements associated 
with the ALLOCATE statement are extracted 
and placed in-line. The initialization 


statements are then skipped, and the 
continues. 


scan 


The action on encountering a BUY state- 
ment is similar to that for the ALLOCATE 
statement, with the following exceptions: 


1. Bound and string length code is in- 
line, bracketed between BUYS and BUY 
statements - there is therefore no 
look ahead 

2. There is no initial value code 

associated with temporaries 


3. А slot in the DSA is updated with the 
pointer to the allocated storage for а 
temporary 


The action on encountering a FREE state- 
ment is to generate code to load a paramet- 
er register with the pointer to the allo- 
cated storage for the FREE VDA Library call 
inserted by the pseudo-code. 
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The purpose of the Register Allocation 
Phase is to insert into the text the 
appropriate addressing mechanisms for all 
types of storage, and to allocate physical 


general registers where symbolic registers 


are specified or required as base reg- 
isters. 

This phase comprises two physical phas- 
es, each with a specific function. The 
first, Phase RA, processes the addressing 


mechanisms, while the second phase, 
RF, allocates the physical registers. 


Phase 


Phase RA 


Phase RA scans the text for dictionary 
references, the beginnings and ends of 
PROCEDURE and BEGIN blocks, and the start- 
ing points of the original PL/I statements. 


A dictionary reference, when found, is 


decoded into a word-aligned dictionary 
address and а code. These are used to 
determine what is being referenced. The 
corresponding object time address as an 


offset and base is then calculated. 


If the address required has an offset 
less than 4,096 and a base which is either 
an AUTOMATIC or STATIC data pointer, no 
extra instructions are generated. If this 
is not so, extra instructions are inserted 
in the text stream to calculate the 
required address. The calculation of this 
address is broken down into logical steps 
in a ‘step table.* On completion, the table 
is scanned backwards to determine whether 
an intermediate result has been previously 
calculated. The steps which have not been 
previously calculated are then assembled 
into the pseudo-code. 


The compiled code is added either to the 
output stream or to a separate file. Тһе 
code in the separate file is terminated by 
a store instruction to save the calculated 
address. The extra "insertion file" is 
placed in the prologue of the relevant 
block by the next phase. Instructions are 
stored in-line if the referenced item is 
CONTROLLED, if it is a parameter, if fewer 
instructions are required to recalculate 
the base rather than load the stored 
address, or if the reference itself is in 
the prologue. 


All relevant information for PROCEDURE 
and BEGIN blocks is stacked and unstacked 
at the start and end of the blocks respec- 
tively. 


At the start of PL/I statements, code is 
compiled to keep the required PREFIX ON 
slots in the Dynamic Storage Area updated. 
On meeting the pseudo-code error marker, 
the calling sequence to the Library error 
package is generated, and the error marker 
removed. 


If the STMT option has been specified, 
code is generated at the start of each PL/I 
Statement to keep the statement number slot 
in the current DSA up to date. 


Phase RF 


Phase RF scans the text for register 
occurrences, implicit and explicit, and the 
Start апа end of PROCEDURE and BEGIN 
blocks. At the beginning of PROCEDURE and 
BEGIN blocks all relevant information is 
Stacked, and is later unstacked at the 
corresponding end. 
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Registers are classified as 


Symbolic, or base. 


assigned, 


Assigned registers require the explicit- 
ly mentioned register to be used. If that 
register is not free it is stored. Symbol- 
ic registers may occupy any register in the 
range 1 through 8. An even-odd pair may be 
requested. Base registers may occupy any 
of registers 1 through 8. 


When a register is requested, a table of 
the contents of registers is scanned, to 
determine whether the register already has 
the required value. If it does, that is 
used. If it does not, and it is not an 
assigned register, a search is made for a 
free register and this is allocated if one 
is found. Should no register be free, a 
look-ahead is performed to determine which 
register it is most profitable to free. 

If a register contains a base it need 
not be stored on freeing. If a register 
contains a symbolic or assigned register, 
it may require to be stored when freed, 
depending upon whether it has had its value 
altered since any storage associated with 
it was last referenced. 


At a BALR (Branch and Link) instruction 
it is insured that all the necessary param- 
eter registers are in physical registers, 
and not in storage. 


No flow trace is carried out by the 


compiler. Therefore, the register status 
is made zero at branch-in and branch-out 
points. An exception is at а conditional 


branch. Here the registers are not freed 
after having been saved. 


instructions are 
At a specific 


Any coded addressing 
expanded when found in-line. 
“insertion point" in a prologue, any 
addressing instructions in the “insertion 
file" are brought in and expanded. 


THE FINAL ASSEMBLY LOGICAL PHASE 


The Final Assembly Phase converts the 
pseudo-code output of the register alloca- 
tion phase into machine code, the principal 
functions being the substitution of machine 
operation codes for pseudo-code operations, 
and the replacement of PL/I and compiler 
inserted symbolic labels by offset values. 


Loader text is generated for program 
instructions, DECLARE control blocks, and 
OPEN file control blocks, initial values 
defined in the source program, parameter 
lists, skeleton dope vectors symbol tables, 
etc. INCLUDE cards are generated to load 
those Library routines required for the 


Final Assembly Logical Phase 53 


execution of the object program. ESD апа 
RLD cards are generated for external names 
and pseudo-registers. An object listing of 
the code generated by the compiler is 
produced if the option has been specified 
by the source programmer. 


Phase TA 


Phase TA scans the STATIC chain for file 
constants and OPEN control block entries. 


For file constants a DECLARE control 
block is constructed from the file name and 
attributes, while checking the attributes 
for consistency. For file constants with 
the ENVIRONMENT option a Library module is 
called to add environment attributes to the 
DECLARE control block. A dictionary entry 
is constructed, chained from the file con- 
Stant, containing the core image of the 
56-byte DECLARE control block. 


For OPEN control block entries an OPEN 
control block is constructed from the 
attributes in the entry, a check is made 
for consistency, and another dictionary 
entry, chained from the OPEN control block 
entry, 15 constructed. This new entry 
contains the 8-byte core image of the OPEN 
control block. 


The contents of the INCLUDE dictionary 
entry are passed to the Library INCLUDE 
card generation module, and Linkage Editor 
INCLUDE cards are produced for Library 
module names returned by that module. 


The four-byte slot ZPRNAM, in the com- 
munications region, is set to contain the 
first four characters of the first entry 
label of the external procedure, for pur- 
poses of object deck serialization. 


Phase TF 


Phase TF scans the text, assigns offsets 
to compiler and statement labels, and det- 
ermines the code required for instructions 
which reference labels. 


The size of each procedure is determined 
and stored in the PROCEDURE entry type 1. 
A location counter of machine instructions 
is also maintained. 
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Phase TJ 


Phase TJ scans the text until no further 
optimization can be achieved in the final 
assembly. 


A location geunter is maintained for 
assembled code, and offsets are assigned to 
labels. 


The size of each procedure is determined 
and stored in the PROCEDURE entry type 1. 
The amount of code required for instruc- 
tions to reference labels is also deter- 
mined, while attempting to reduce this from 
the amount estimated by the first assembly 
pass. 


This phase also attempts to reduce the 
number of Move (MVC) instructions by 
searching for consecutive MVC instructions 
which refer to contiguous locations. 


Phase TO 


Phase TO produces ESD cards for the 
compiled program. It first makes up six 
Standard entries for: 


1. Program Control Section  (CSECT) (SD 


type) 
2. STATIC internal CSECT (SD type) 
3. Invocation count (PR type) 


4. Entry points to Library 
IHESADA and IHESADB (ER type) 


routines, 


If the external procedure has the MAIN 
option, an entry for a one-word CSECT (SD 
type) is made up. Entries are made up for 
all entry labels in the external procedure 
(LD type). 


The entry type 1 chain is scanned and an 
entry (PR type) is made up for each block 
and procedure. 


The external section of the STATIC chain 
is scanned and entries аге made up for: 


1. Built-in functions 
tions (ER type) 


and library func- 


2. Files (ER type) 

3. STATIC external variables (SD type) 

ц. External entry names (ER type) 

names (SD 


5. Programmer  .ON condition 


type) 


The CONTROLLED chain is scanned and an 
entry is made up for each CONTROLLED varia- 
ble and task name (PR type). 


Phase TT 


Phase TT scans the text and maintains a 
location counter for assembled code. 


Loader text (TXT) and relocation direc- 
tory (RLD) cards for requested combinations 
of load and punch files are generated. 


Nested procedures аге unnested at object 
time by suitable manipulation of the loca- 
tion counter. The offset of each procedure 
from the start of text is left in the 
PROCEDURE entry type 1. 


Compiler labels are numbered for use by 
the object listing phase, and trace infor- 
mation is set up at entry points. 


Phase UA 


Phase UA generates text for the static 
internal CSECT; initializes а CSECT for 
each static external variable; and, option- 
ally (if the LIST option is present), lists 
all the text produced for the static inter- 
nal CSECT and provides suitable comments. 


The phase first scans to the start of 
the external section of the STATIC chain, 
generating text for entry labels, label 
constants, compiler labels, file attri- 
butes, label variable BCDs, and DEDs for 
temporaries. Simple variables found on 
this scan are used, together with the 
labels, to mark the start of the character 
string section of the chain. 


The phase then scans to the end of the 
external section of the chain, initializing 
address constants for external variables, 
external entry names, built-in and Library 
functions, programmer-defined ON-condition 
names, external files, and label constants. 
Text is made up for the constants pool. 


The third scan of the STATIC chain 
Starts at the point left by the previous 
scan, and generates text for dope vector 
skeletons, argument lists, RDVs and DVDs, 
and symbol tables. The scan is terminated 
at the end of the chain. 
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Phase UD 


Phase UD initializes those items on the 
STATIC chain not processed by Phase UA. 


The phase first scans to the start of 
the external section of the chain, making 
up text for simple data, and listing label 
variables. 


The second scan starts at the head of 
the character string section of the chain, 
and initializes dope vectors for all static 
internal variables which need them. 


The third scan corresponds in extent to 
the third scan in Phase UA, but generates 
text for arrays, and simple and interleaved 
structures. At the end of this scan, a 
test is made to determine whether the 
external procedure of the program has the 
MAIN option. If so, a one-word CSECT 
(IHEMAIN) is made up, to contain the 
address of the principal entry point to the 
compilation. 


The phase then executes its final 
which 


scan, 
extends over the external section of 


the chain, to initialize a CSECT for each 
external variable or external file. 
Finally, any incomplete text and RLD 


cards are punched out, and an END card is 
produced for the compiled program. 


Phase UF 


Phase UF scans the text, and lists, in 
assembly language format, machine instruc- 
tions compiled for the source program. It 
inserts comments in the listing for state- 
ment numbers, statement labels, entry 
points, prologues, and procedure bases. 


THE ERROR EDITOR PHASE 


The Error Editor Phase is entered at the 
end of all compilations. The first phase, 
Phase XA, examines the dictionary and det- 
ermines whether there are any diagnostic 
messages to be printed out. If there are 
none, this phase terminates the compila- 
tion.’ If there are diagnostic messages to 
be printed out, Phase XB causes further 
modules to be loaded, which process the 
error dictionary entries and print out the 
appropriate messages. 
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Phase XA 


Phase ХА examines the heads of the error 
chains in the first dictionary block, and 
the programmer options which specify the 
severity level of messages required. If 
there are no messages to be printed, this 
phase prints out a terminal message and 
completes the compilation. If diagnostic 
messages are required, the phase loads 
modules XB and YA. It then scans down the 
error message chains and marks each error 
dictionary entry with an indication of 
where the text of the associated message is 
to be found. This information is obtained 
from а table in module ХЕ. Then the phase 
calls module XB. 


The text of all error messages is kept 
in modules XG through YX. The messages are 
ordered, by severity, within these modules. 
Module ХА will have listed those modules 
which contain messages required for а  par- 
ticular compilation. Module XB loads and 
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releases these modules, one at a time, and 
extracts the required messages. Having 
loaded a particular module, the phase scans 
down the associated error message chain in 
the dictionary for error entries associated 
with the module. It accesses the error 
message text and scans it. 


The message to be printed is built up in 
a print buffer in internal compiler code. 


This involves a translation from EBCDIC 
mode, which is used for the message text 
skeleton. The message is completed by the 


insertion of a statement number, an iden- 
tifier, or a numeric value as specified by 
the message dictionary entry. The message 
is segmented, where necessary, to avoid 
Spilling over a print line, translated to 
external code, and finally printed out. 


When all error message dictionary 
entries have been processed, module ХВ 
returns control to phase XA, which passes 
control to module AA for termination of the 
compilation. 


This section provides a complete guide 
to the compiler logic, in the form of 
flowcharts and associated tables and rou- 


tine directories, arranged in phase order. 


Flowcharts 


The flowcharts are presented at three 
levels of detail -- overall, logical phase, 
and physical phase. The overall compiler 
flowchart (Chart 00) points to the logical 
phase flowcharts (Charts 01 through 09), 
each of which appears at the head of the 
set of physical phase flowcharts to which 
it points. The physical phase flowcharts 
point (by means of identifiers placed next 
to the blocks) to the various routines 
used. Entry points to physical phases are 
labeled. 


Where transfer is effected between 
modules within a physical phase, the entry 
label into the entered module is shown as 
follows: 


1. Where the means of transfer is a trans- 
fer vector, an asterisk is shown as the 
label on the flowchart, and a note at 
the foot of the chart states that the 
transfer vector table is located at the 
start of the module. 


2. When transfer is made from a decision 
block, the block representing the entry 
is labeled. 


With the exception of  "fall-through" 
branches, all branches from decision blocks 
are labeled where possible. Where the 
branch is actually a branch table, this 
fact is indicated on the chart, and the 
label of the branch table is given. 


additional labels have 
assist in following the 


In some cases, 
been given, to 
program flow. 
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Tables and Routine Directories 


For each physical phase, a table is 
provided, which lists the operations per- 
formed and identifies the routines and 
subroutines involved. Where applicable, a 
routine directory follows the table. This 
provides an alphanumerically arranged list 
of the routines and subroutines contained 
in the phase, and states their function. 


In some cases, a physical phase compris- 
es more than one module; this means that 
routines contained in different modules may 
be listed together in one routine direct- 
ory. To assist in cross-reference to the 
compiler listings, the following convention 
has been adopted: if a routine is contained 
in a module whose label is not identical to 
that of the phase under discussion, the 
label of the containing module is inserted 
in parentheses after the routine name in 
the directory. 


In the case of a phase sharing a routine 
contained in another phase, the label of 
the containing module is indicated in 
parentheses after the routine name in the 
"Subroutines Used" column. The routine 
will not then appear in the routine direct- 
ory for the phase under discussion, but 
will be found in the routine directory for 
the containing phase. 


Identification of tables 
phase flowcharts is 
label. 


and physical 
based оп the phase 
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Chart 00. Overall Compiler Flowchart (cont'd) 
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Table AA. Module AA Compiler Control Resident Control Phase 
(Ee Pa анага > Tose Tee ГЕ ИЕЛДЕ ШЫ 


Statement or Operation Type | Routine 


jinitializes the compiler | ZINIT 

| | 

|Parameters passed: General register 1 points at| 

{the passed parameters 

|Entry to 05/360: GETMAIN(R), TIME, LINK, SPIE 
|Converts an absolute address to a dictionary 
| reference 

| 

|Parameters passed: PAR1 -- any reference to the 
|block containing the absolute address; 

|PAR2 -- the absolute address to be converted 
[Parameters returned: PAR1 -- the required 
|dictionary reference 


|Entry to 05/360: None 


ZDABRF 


|Converts a dictionary reference to an absolute 
| address 

| 

|Parameters passed: PAR1 -- the dictionary 

| reference 

|Parameters returned: РАК1 -- the absolute 
[address 


|Entry to 05/360: None 


—A————————————MÀ—À———————— d 


|Makes an unaligned dictionary entry and 
[returns an absolute address 

| 

| Parameters passed: PAR1 -- address of entry to 
|be made; PAR2 -- length of entry 

|Parameters returned: PAR1 -- address of entry 
jin dictionary 

|Entry to 05/360: None 


–– жәе жәме «ме «мә «ке RÀ «м» «мә «е-е «м» «ме «лә «ы» «ее «и» a «ағ» жш» «шы» «ле» ce «ке» е-е «м» «м» «ле «әже a a — --- е» анин M -.- ж. --- — e --- — — -- — — 


— — — — — «м» —— — «ее «жә «же «ке -- «м» 


|Makes an aligned dictionary entry and returns 

jan absolute address 

| 

|Parameters passed: РАК1 -- address of entry to 
|Бе made; PAR2 -- length of entry 

| Parameters returned: PAR1 -- address of entry 

jin dictionary 

|Entry to 05/360: None 


|Makes an unaligned dictionary entry and 
|returns dictionary reference 

ТАЕНЕ passed: РАК1 -- address of entry to 
{be made; PAR2 -- length of entry 

|Parameters returned: PARI -- reference of entry 
Jin dictionary 

{Entry to 05/360: None 

| 


-————————-————————L————————--————————--——————————— 
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|Makes an aligned dictionary entry and returns a|ZDICRF 


jin dictionary 


{dictionary reference | 
| | 
|Parameters passed: PAR1 -- address of entry to | 
|be made; PAR2 -- length of entry | 
|Parameters returned: PAR1 -- reference of entry| 
| 
| 
і 


[Entry іо 05/360: None 
ОЕ а RC салшы алынды Е Е РЕНЕ Rt 


Section 3: Charts and Routine Directories 


|Main Processing] 


еее: 1 


| Routine Called 


LOADW, ABORT 


CONSLD, 
BLKERR 


ZUERR, ABORT, 


CONSLD, TRYMRD, BLKERR 


ee au» — ee «ми» «лы quam «лы» ee ee «мы» eo «Бе» eee m 


ZDRFAB, ZDABRF, TRYMRD, 
ZUPL, ZUERR, ABORT, 
CONSLD 


55" À— «ме «кз aug aum «кек. ape amp ee uum quum шош ез a ee em oe 


ZUPL, ZUERR, 
CONSLD 


| 
ABORT, | 
| 
| 
| 
| 
| 
| 


me — — «ес — M «өл» жәие «ке pm. «ли» «ше «ем» «қа з ж-е «м» ш шы тз «ка «кес чин. 


ZDRFAB, ZDABRF, TRYMRD, 
ZUPL, ZUERR, ABORT, 
CONSLD 


4--------------------------------------------------------------------------------------------------------- 


|ZDRFAB, ZDABRF, TRYMRD, 
| ZUPL, ZUERR, ABORT 


| COSLD 


| 
| 
| 
| 
| 
| 
| 
| 
1 


= ee ee — 
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Table АА. Module AA Compiler Control Resident Control Phase (cont'd) 


Ce a te ea per em quee 1 
| |Main Processing] 

| Statement or Operation Туре | Routine | Routine Called | 
І----------------------------------------------- 4---------------І----------------------- 1 
|Finds а new text block. Optionally chains the |ZUTXTC |CONSLT, TRYMRT, ZUERR, | 
| пем block to the current block and changes the | | ABORT, BLKERR | 
|status of the current block | | | 
| | | | 
|Parameters passed: РАК1 -- optionally, а | | | 
[reference to the current block. РАК2 -- a | | | 
{status and chain indicator | | | 
| Parameters returned: PAR1 -- reference to new | | | 
|block; PAR2 -- a status and change indicator | | | 
|Entry to 05/360: None | | | 
----------------------------------------------- і--------------- І----------------------- 1 
|Finds the next text block in the chain. | ZCHAIN |CONSLT, TRYMRT, BLKERR | 
|ОрЕіопа11у, changes the status of the current | | | 
| block | | | 
| | | | 
|Parameters passed: PAR1 -- a reference to the | | | 
|current block; PAR2 -- a status indicator | | | 
| Parameters returned: РАКІ -- reference of the | | | 
jnext block in the chain | | | 
| Entry to 05/360: None | | | 
----------------------------------------------- %---------------1-----------------------і1 
|Changes the status of the referenced text block| ZALTER |СОМ5ІТ, BLKERR | 
| | | | | 
|Parameters passed: PAR1 -- a reference to the | | | 
| block . | | | 
| Entry to 05/360: None | | | 
таана аа %--------------- 4----------------------- 1 
|Converts a text reference to an absolute | ZTXTAB |CONSLT, TRYMRT, BLKERR | 
laddress and optionally, does not change | | | 
|status of the block. | | | 
| | | | 
| Parameters passed: PAR1 -- reference to be | | | 
[converted and option indicator bit | | | | 
|Parameters returned: PAR2 -- the absolute | | | 
| address . ; | | | 
|Entry to 05/360: None | | | 
----------------------------------------------- %---------------4-----------------------і1 
{Converts an absolute address to а text | ZTXTRF [CONSLT, BLKERR, ZUERR, | 
| reference | | ABORT | 
| | | | 
|Parameters passed: PAR1 -- a text reference to | | | 
|the block containing the absolute address; | | | 
|PAR2 -- the address to be converted l | | 
|Parameters returned: PAR1 -- the required text | | | 
| reference ` | | | 
| Entry to 05/360: None | | | 
----------------------------------------------- "—— A — —— 
[Enters message "REFERENCED BLOCK NOT IN USE' | BLKERR | ZUERR, ABORT | 
|іпіо dictionary and then terminates compilation| | - | 
| | | | 
|Entry to 05/360: None | | | 
----------------------------------------------- І---------------4-----------------------4 
|Supplies storage space for scratch purposes. | ZUGC | TRYMRT, ZUERR, ABORT | 
{Allocation is made in 512 bytes at a time | | | 
| | | | 
|Parameters passed: РАК1 -- a count of the | | | 
|number of 512 byte blocks required | | | 
|Parameters returned: РАК1 address of the | | | 
[allocated storage | | | 
| Entry to 09/360: None | | | 
елы кш ште си ы Re, UR PP қа ыы ылымы аны ы ыыы қ санынын Қалы ы ылы ИЙНЕНИ a 
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Table АА. Module AA Compiler Control Resident Control Phase (cont'd) 


aa a aaa a aaa nn a arr Ee. Perr er ee ee 1 
| | {Main Processing | 
| Statement or Operation Type | Routine | Routine Called | 
----------------------------------------------- 4---------------4-----------------------1 
[Releases scratch storage allocated by ZUGC | ZURC | ZUERR, ABORT | 
| | | | 
|Parameters passed: PAR1 -- а count of the | | | 
[number of entries to ZUGC to be released | | | 
[Entry to 05/360: FREEMAIN if storage being | | | 
|replaced is outside the guaranteed 4k block | | | 
----------------------------------------------- І---------------4-----------------------і 
|Deletes а list of loaded phases | RELESE | ZUERR, ABORT | 
| | | | 
|Parameters passed: PAR1 -- address of list of | | | 
|phases to be deleted | | | 
|Entry to 05/360: DELETE | | | 
----------------------------------------------- %---------------4-----------------------і 
|Deletes a list of loaded phases and passes | RLSCTL |Module AD if inter- | 
Jcontrol to either the next requested phase or | {phase dumping is req- | 
|the next named phase | |uired; Module АЕ if it | 
| | jis end of Read-In | 
|Parameters passed: PAR1 -- address of list of | |Рпаве; ZUERR, ABORT | 
|phases to be deleted; PAR2 -- address of name | | | 
lof phase to which control is to be given, or | | | 
| zero | | | 
|Parameters returned: PAR1 -- load point of new | | | 
| phase | | | 
|Entry to 05/360: DELETE, LOAD(EPLOC), LOAD(DE), | | | 
| LINK | | | 
----------------------------------------------- 4---------------і-----------------------1 
|Loads the required phase and returns control to|LOADX | ZUERR, ABORT | 
|the caller. The phase may be loaded again | | | 
| | | | 
| Ё. | | | 
|Parameters passed: PAR1 -- address of name of | | | 
|phase to be loaded | | | 
|Parameters returned: PAR1 -- load point of | | | 
| phase | | | 
[Entry to 05/360: LOAD(DE) | | | 
----------------------------------------------- Іі---------------1-----------------------1 
|МагКв phases as ‘wanted’ апа ‘not wanted’ | REQEST | ZUERR, ABORT | 
| | | | 
| | | | 
|Parameters passed: РАК1 -- address of | | | 
{115& of phase names to be marked 'wanted;' | | | 
|PAR2 -- address of list of phase names to be | | | 
[marked ‘not wanted’ | | | 
|Entry to 0S/360t None | | | 
----------------------------------------------- і--------------- %----------------------- 1 
{Inserts diagnostic message іп the dictionary | ZOERR | ZDRFAB, ZDICRF, ZDICAB | 
| | | | | 
| | | | 
|Parameters passed: PAR5 -- numeric parameter | | | 
| (if any); PAR6 -- message number; РАК7 -- add- | | | 
|ress of text (if any) or dictionary reference | | | 
|(if апу); PAR8 -- length of text (if any) | | | 
|Entry to 05/360: None | | | 
----------------------------------------------- %---------------1-----------------------і 
|ТаКез a dictionary reference and points at the |CONSLD | None | 
|relevant slot іп the dictionary block control | | | 
|ахеа (DSLOTS) | | | 
| 
URS РАК1 -- dictionary reference| | | 
{Parameters returned: Address of slot in GRA | | | 
| Entry to 0S/360: None | | | 
ИЕА ar aoa ca — —— 4 
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Table AA. Module AA Compiler Control Resident Control Phase 22. 


|Takes а text reference and points at the 
|relevant slot in the text block control area 
| (TSLOTS) 


| 
| Parameters passed: РАК1 -- text reference 
|Parameters returned: Address of slot in GRA 


[Entry to 05/360: None 


|Allocates space for a text block 

ERE passed: Relative track address of 
|the block (if block is on disk) in RDTTR. 
|Otherwise RDTTR is zero 

[Parameters returned: Address of block in GRO 
|Entry to 0S/360: GETMAIN(VC) if storage 
javailable. OPEN if no space left for text 

| blocks 

|Allocates space for a dictionary block 

| 
[Parameters passed: Relative track address of 
[block (if block is on disk) in RDTTR. Other- 
[wise RDTTR is zero 

[Parameters returned: Address of block in GRO 
|Entry to 05/360: GETMAIN(VC) if storage 
lavailable. Open if no space left for diction- 
[агу blocks 


| (DSLOTS), to find which block can be written 
Jonto disk to make space for a different block 
[їп storage 

| 
| 
|Parameters passed: Relative track address of 
|block required in storage іп RDTTR. RDTTR=0 if 
|а block is being created 

|Parameters returned: Address of block in 
|storage іп BLOKAD 

|Entry to 05/360: None 

| Investigate the text block control area 

| (TSLOTS), to find which block can be written 
Jonto disk to make space for a different block 
jin storage 

| 
|Parameters passed: Relative track address of 
|block required in storage іп RDTTR. RDTTR=0 if 
[а block is being created 

|Parameters returned: TFREE 

|Entry to 05/360: None 

|Create space in storage by writing on disk 

| 
|Parameters passed: RDTTR-0, BLOKAD contains 
laddress of block that can be written out 
[Parameters returned: BLOKAD contains address of 
|block in storage that is now available 

|Entry to 05/360: WRITE(BSAM), CHECK, NONE 


Uso Sa ee er a el N d ee 


| 
| 
| 
| 
| 
| 
| 
| 
+ 
| 
| 
| 
| 
| 
| 
| 
| 
| 
+ 
| 
| 
| 
| 
| 
| 
| 
| 
| 
+ 
|Investigates the dictionary block control used | 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
+ 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
+ 
| 
| 
| 
| 
| 
| 
| 
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мача 


рие 


-------------------- 


---------------------------------------- 


Һ--------------------------------------------------------------- 


Мопе 


DFREE, ТЕКЕЕ, ZUPL, 
ABORT 


DFREE, TFREE, ZUPL, 
ABORT 


CONSLD, ZUERR, ABORT, 
WDREAD, WRTRD, WDWRIT 


CONSLD, ZUERR, ABORT, 
WDREAD, WRTRD, WDWRIT 


и ьо «же «ә eee oe 


Table AA. Module AA Compiler Control Resident Control Phase (cont'd) 


| Statement or Operation Type | Routine | Routine Called 


{Writes a block onto disk and reads a second one|WRTRD |READX, WRITEX, ZUERR, 


[into its place in storage 

{ 

| 

|Parameters passed: RDTTR contains relative 
|track address of block to be read.  BLOKAD 
jcontains address of block to be written 

| Parameters returned: NOTTR contains relative 
|track address of block in storage 

|Entry to OS/360: WRITE(BSAM), CHECK, NOTE 


е = a n ee a «ж» c a «ле «ғы» «лы» «ее атмо иы «ке» «ке» алы» «е «ке aM ше ш M aug uum «ке «к» «ле» ш «ль» «е re ға «ме apum cp am «ле «к» шш «м» шш 


| ABORT 


| Reads a block from disk into space already 
Javailable in storage 


| 


INR passed: RDTTR holds relative track 
[address of block to be read.  BLOKAD holds 
[address of space in storage 

J|Parameters returned: BLOKAD holds address of 
{block in storage 


|Entry to 05/360: None 


{Writes a block onto disk ZUPL, ZEND 


| 
|Parameters passed: TEMP4 holds relative track 


laddress of space on disk 
|Entry to 05/360: XDAD(WI), WAIT 


ae ее ро от atus Gus ақы» «әле m «шан «ши» re шу, ap «лл» «ши» «лы» ee «леп «ибо ee «ть «ле» «ла» «шы ee өш» «ши» ee «әс» ne m «лы ee ow uie «лә» um dumm «лл» «лы» ee or «мы «шә 


[Reads а block from disk 


| 
|Parameters passed: TEMP4 holds relative track 


jaddress of block on disk 
|Entry to 05/360: XDAP(RI), WAIT 


> «е «әль «ле жәме тень = өлше «әш» «әле «лға «шы» ала» «өте «лы» «шы» «лл» «аме» «ше чыш чить «ли» жш» «ем» «ли» «ше «ле «ға. чыш чана «ше «и» «ы» «шә «ле «еее «ме» «ғал «лы» «ке өше «кә 


ZUPL, ZEND 


|Reads a record from SYSIN 


| 


| 
|Parameters passed: PARI -- address of input 


{ area 
[Parameters returned: PAR2 -- record length 
|Entry to 05/360: GET MOVE (QSAM) 


du MA UND «ла» шы «қт» amm «ме» «кл» «ки» ee шшш utm «ғә» ee «ле» «ки» Rmo END oe чыш. quus UP ee өле» VP «қа» GU US pm өле» aps «ә» om «жа» «ка» GN «ке» «ке» өзе «и» D кыщ «жы» om ре «кәс «шш» P «лл» qum qum m «ки» «қы» um «ми» «ке» ctas E «ж» 


|Puts a record out to SYSPRINT. Pagination 
| (paging action) is performed automatically 


| Parameters passed: PARI -- address of output 
| buffer 
{Entry to 05/360: PUT LOCATE (05АМ) 


|Puts a record out to SYSLIN 

| 

|Parameters passed: PAR1 -- address of output 
| record 

|Entry to 05/360: PUT LOCATE(QSAM) 

{Puts a record out to SYSPUNCH 

| 

|Parameters passed: РАК1 -- address of output 
| record 

| Entry to OS/360: PUT LOCATE(QSAM) 
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Table AA. 


Module AA Compiler Control Resident Control Phase (cont'd) 


[X cy ty А қатар E ары асыр ырады es ASA нарлы Spe Py а дады алые sip ce Geet ee Pe Doe py tae te pe eee ye NES 1 


|Entry to 05/360: LOAD(EPLOC) if dump option 

| specified 

|Picks up completion code and returns control to 
|the program that called compiler 


| 
|Entry to 05/360: TIME, FREEMAIN, DELETE 


«аль — — — «ке» «әм» MÀ «өле «шы» —— e «жм» «ше» M Mu «жә» «ки» a A «ел» «ан «жы» «ее «е ee à «ме ии --- пише «м» «м- MÀ — —— Á e — — — — — мать --- — 


| Handles all program checks 


| Parameters passed: APRINT holds address of 
|routine wanting to handle interrupt.  ARMASK 
|Һ0145 mask indicating which interrupts it is 
[desired to handle 


— «өзе «ке ше» «ғын ш— шш «еее «лы» M Un" «и» a өл» «лы» A өле есе» ee A «ке «ке «и» «жө «ао apu. «ле «ше «ы» quas aes «әке «ке «е» «шь «ше ue «к «к as «шә «ше но m t 


Table AAI. 


Statement or Operation Type 


|Deletes currently loaded phases and passes 
|control to the Error Editor 


Routine/Subroutine | 


|Main Processing | 
Routine 


Module AA Routine/Subroutine Directory 
(omen ИЕ О | DE I C c CM CC mE ER EIE 
| 


|Routine Called 


|Deletes currently loaded phases, passes control to error editor. 


|Enters message "REFERENCED BLOCK NOT IN USE", then terminates compi- 


| lation. 


|Takes dictionary reference and points at relevant slot in dictionary 


[control block area (DSLOTS). 


|Takes text reference and points at relevant slot in text block con- 


[trol area (TSLOTS). 


|Finds dictionary block which can be written on disk to make room for 


ja new block in storage. 


|Marks error on SYSLIN data set. 


[Loads required phase and returns control to caller. 
|be loaded again. 


|Loads required phase and returns control to caller. 


| Handles all program checks. 


|Prints record on SYSPRINT data set. 


|performed automatically. 


|Marks error on SYSIN data set. 


| 
|Reads a block from disk. 


|Releases all 


|Marks phases 


{Releases all 
[named phase. 


loaded phases. 
as 'wanted' or 'not wanted.' 


loaded phases and pass control to next 


The phase may 


Pagination (paging action) is 


required or 


| 

4--------------- 4----------------------- 1 
|ZABORT, ABORT [Module AD if dump op- 
| |tion specified; RLSCTL 
| | 

| | 

+ } 

| ZEND | ZUPL 

| | 

| | 

| | 

| 

| PIH | ZUERR 

| | 

| | 

| | 

| | 

| | 

| | 

| | 

И ate Sete p -——— —————— A 


Table AA1. Module AA Routine/Subroutine Directory (cont'd) 

|Routine/Subroutine] юм 1 
|SPERRX — |Marks error on SYSPUNCH data set. = | 
(Же ЕТЕР text block which сап be written on disk to make space for а | 
| |new block in storage. | 
РРР |Allocates space for a dictionary block. | 
РЕК |Allocates space for a text block. | 
ТРАЕ |Reads а block from disk into storage. | 
| WOWRIT pem Space in storage by writing a block on disk. 
ee Core a block on disk. | 
PEE Т on last block on disk. | 
ЕВ Ее а block onto disk, reads a second опе into its place іп ee 
| |аде. | 
| | | 
| ZABORT |Deletes currently loaded phases and passes control to error editor. | 
ТИЯ Ке Status of referenced text block. | 
eee ce next text block in chain. | 
cece (ЕКЕНІ an absolute address to а dictionary reference. | 
DT сер а dictionary reference to ап absolute address. | 
ШТ” PTS an aligned dictionary entry and returns absolute address. | 
ЕЕЕ TNR an aligned dictionary entry and returns dictionary reference. | 
[GENS |Picks up completion code and returns control to calling program. | 
rn jInitializes the compiler. | 
ТЕРЕ ree unaligned dictionary entry and returns dictionary reference. | 
ЖТТ ee unaligned dictionary entry and returns absolute address. | 
Не {Converts text reference to ап absolute address. | 
ТТЕР ТИ absolute address to а text reference. | 
PT Гая diagnostic message in dictionary. | 
ae ieee record out to SYSLIN data set. | 
TUBE {Puts record on to SYSPUNCH data set. | 
IURE каайн a record from SYSIN. | 
ТҮ ЖЕТІ storage space for scratch purposes. | 
P Е scratch storage. 
ы; puts record out to SYSPRINT data set. | 
Отт tases a new text block. | 
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Table AB. Module AB Compiler Control Initialization 


aaa mn aca aa aera a a == == E 
| | Маіп Processing] 
| Statement or Operation Type | Routine 
EET Ж козін ата лғ ee ЕЕ 1----------- 
|Issues а BLDL macro-instruction on all phases  |PROPEN 
|in compiler, and constructs a compacted phase | 
| dictionary | 
| | 
|Entry to 05/360: BLDL | 
арас тата De CE EMEN E RE RE зз 
|Prints initial heading and performs scan of | OPTPROC 
loption list. Default options are taken where | 
| necessary | 
| | 
Parameters passed: General register 1 points to| 
Joption list passed at invocation time | 
| Entry to OS/360: TIME, PUT LOCATE(QSAM) | 
punc LED MOMENT VC C ыы шы 1----------- 
|Makes the initial space allocation for text and|OPENR 
[dictionary blocks. Sets up communication | 
| region | 
| | 
| Entry to OS/360: GETMAIN(R) | 
GI EAI AO SOE RSS Ta PR NOON ee EC АМ (E ME CE NES ы кы лут АШ ыг 4----------- 
|Орепв spill file if text and dictionary blocks |OPENSP 
lare 1K | 
| | 
|Entry to 05/360: OPEN | 
BIN ee a ae a et ee ды р йы О і----------- 
{Obtains the guaranteed 4K of scratch storage | GETSCR 
| | 
|Entry to 05/360: GETMAIN(R) | 
ыы A ee E E E ee S CREME [eee 
[Loads intermediate file writer (Module AC). | NODUMP 
[Sets buffer sizes for SYSUT3 and opens the data| 
| set | 
| | 
jEntry to 05/360: LOADCEPLOC), OPEN | 
fe A EE aN i T ы ыыы ee Be жс нт ұ----------- 


|Prints out list of options for this compilation| NDMP 


| 
|Entry to 05/360: None 


| 
| 
ОЕ Е ЕЕ S etn DT UR Шық eee +---------— 

|Enters error messages generated when SYSIN, | P713 
| SYSPRINT opened | 
| | 
|Entry to 05/360: None | 
Ғ----------------------------------------------- %----------- 
[Reads first сага and stores. Uses as heading |RDCD 
lif required | 
ee Е кимы 
[Return to pre-initializer.in IEMAA | ABOUT 
Gat at E ылады адалды ыы ИЕ ыз I oon discendi cee an 
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RIGEN cllc EE C MM NÉ SEU ewe EM CCS 1 


| 
| Routine Called | 


АДЫ an gps cm ‘mi si i St, te as es ілес ae 


----------—————————————4 
| None 

| 

| 

| 

hn -MMMM 
| None 

| 

| 

| 

| 

| 

| 
}+--------------------—--- 
| None | 
| | 
| | 
| | 
| | 
%----------------------- 1 
| None | 
| | 
| [ 
| { 
%----------------------- 1 
| None | 
| | 
| | 
----------------------- 1 
|ZUPL (AA) | 
| | 
| | 
| | 
| | 
1----------------------- 1 
|ZUPL (AA) | 
| | 
| | 
І--------------------- --1 
| ZUERR (AA) | 
| | 
| | 
| | 
І----------------------- 1 
12080, ZUERR, ZUPL | 
| (all in AA) | 
%----------------------- 1 
| | 
|Мопе | 
ЖА Б зш эг ыы ары эз шо. 1 


Table АВ1. Module АВ Routine/Subroutine Directory 


|Routine/Subroutine| + Functio | | 
lasou rea сопот co pre aaa ш oaea тте | 
foe ern scratch storage. 

fone |Prints lists of options for current compilation. 

| NODUMP idus intermediate file writer module AC. Sets buffer sizes for 


[ |SYSUT3 and opens data set. 


OPENR = |Макев initial space allocation for text and dictionary blocks. Sets 
| | ар communications region. 


OPENSP |Орепв spill file. 


а P SS жәнее «еее» Ge ене еме» 


| 

| 

| 

| 

| | 

| OPTPROC [Prints initial heading and performs scan of option list. 

| 

| P713 |Enters diagnostic messages generated when SYSIN and SYSPRINT data 
| |sets are opened. 

| | 

f PROPEN | Issues BLDL macro-instruction and constructs phase directory. 

| 

| RDCD |Reads first card. 

Башы ras ee датады | ———— ——————— ————————— —— ыы eee 


Table AC. Module AC Compiler Control Intermediate File Control 


ОО О me ae crm equ ETE RET асаа TUTTI t 1 
| [Main Processing] | 
| Statement or Operation Type | Routine | Routine Called | 
----------------------------------------------- І---------------1-----------------------1 
{Writes a record onto SYSUT3 | IEMAC | None | 
| | | | 
|Parameters passed: PAR1 -- address of output | | | 
| record; PAR2 -- length of record | | | 
{Entry to 05/360: PUT LOCATE(QSAM) | | | 
І------------------------------------------------ --------------- ---------------------- 1 
|Link to file switching routine (Module AG) | ENDED | None | 
| | | | 
| Entry to 05/360: LINK | | | 
кишннин Mp SN a ee Qn d 
Table AD. Module AD Compiler Control казалчы Dumping 
Ge ae ig аны саннан se eat en we ee T Me ee ee eee ee 1 
| [Main Processing| | 
| Statement or Operation Type | Routine | Routine Used | 
----------------------------------------------- і---------------1-----------------------1 
{Debugging aids. This routine contains а dump- |IEMAD |ZDRFAB, ZTXTAB, ZUPL | 
{ing program which is invoked by use of the DUMP] | (а11 in AA), | 
орлов | | DUMP | 
Os MEN ЗДЫ a sca as ee a VEEE E KH LUN ы NR ыла сы a eer ead 
Table Арі. Module AD Routine/Subroutine Directory 
РЕ eat E ee E ВИС Se ee ee oa ee ee ш ы шышы НЕМ У 
|Routine/Subroutine| Function | 
------------------ %--------------------------------------------------------------------1 
| DUMP |Converts contents of specified area of main storage to hexadecimal, | 
| |prints the result. 
іш сымы да аша Ó Жо ы ы КЕРЕ ER ar EE ОЕ О РИ ep a enh А ыш еШ ЧЕ ЕЕ ЕВЕ НЕ J 
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Table AE. Module AE Compiler Control Clean-Up Phase 


(aS SS Se ee a ee ee E T ач 


| [Main Processing| 
| Statement or Operation Type 


| 
+ 
| Input and intermediate file control. Current |ТЕМАС 
{input file is closed and IEMAC is deleted if | 
| present | 
| | 
|Entry to 05/360: CLOSE(current input file), | 

| DELETE | 


|Орепв SYSLIN and SYSPUNCH data sets if required|NOT48 ZUERR (AA) 


| 
|Entry to 05/360: OPEN | 


о ——— «м» био ame «Аға wem «кә» «о «ке» «м» «ее ED «зе» ates te өте «кы» quas Uum qus «ше» Фо «ке «ка» ume ee «ке UU «ж» dies am apa «лы» «қы» «ли» «км» um ee ee чы» «ки» «ға» pum ори «жө um cum че» «ке» ee ee «ме «шә «к» «м» «ж» «м» 


{Expands the number of blocks іп storage to four|NOTDCK 
|text and four dictionary, if running with the | 
ІШ size option 


None 


в 


| | 
| Entry to 05/360: GETMAIN | 


Table АЕ1. Module АЕ Routine/Subroutine Directory 


| NOT48 |Орепв SYSLIN and SYSPUNCH data sets as required. 


ДӘРЕ |Expands number of blocks in storage. 


"———————————— GaSe V LA LXI eL LLLI IlILIlI ЫЕ ———— —À — MÀ —— —À — — —— —— —À — — — ae 


Table AF. Module AF Compiler Control Sysgen Options 


|This module contains no executable instructions. It is 
|generated at SYSGEN time and passes the default options 
land values to the compiler 


Table AG. Module AG Compiler Control Intermediate File Switching 


| poii din DER Rc c DEP ELE д p END E dcc AG ee ar ay NL TS OEC CUT UIN UTE Um Se RET 


| Function | Subroutines 

[Switches SYSUT3 from an output file to an input file | None 

| | 

| Entries to 05/360: OPEN and CLOSE | 
1 


Table АМ. Module AM Compiler Control Phase не 


lali phases influenced by compiler 


+ + 
|Marks all non-optional phases and  |IEMAM |REQEST, RLSCTL (both.in AA) 
| | 
[invocation time options | | 

1 1 
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Routine | Routine Called 
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Chart AS. Phase AS Overall Logic Diagram 
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Chart BC. 


Phase BC Overall Logic Diagram 
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Chart BM. Phase BM Overall Logic Diagram 
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Table AS. 


Phase AS Resident Phase for Compile-time Processing 


п. Wek > tee eee (UIS we Pee Was a Thy ye a ZEN 1 


| Statement or Operation Type | Routine | Subroutines Used | 
----------------------------------- І---------------і-----------------------------------1 
|Initializes switches for compile-  |ADRP | | 
jtime processor | | | 
----------------------------------- І--------------- == 1 
[Loads phases for compile-time | ADRP |LOADX (AA) | 
| processor | | | 
----------------------------------- ------------- І----------------------------------- 1 
|Determines whether Phase BC should |ADRP | | 
| be reloaded | | | 
hae ee ee eee I osiada Е НЕ EEEE 1 
Table А51. phase AS Routine/subroutine Directory 
posco om a ipic О Se ББ de тез кт сак Heer dcin NN ав тыны лыны 1, 
| Routine/Subroutine| Function | 
epiac CHOR WEN ddr Peek) SPP HA RI 1 
| ADRP {Initializes switches for compile-time processor. | 
| | 
| CLSBUF [Outputs onto SYSUT3 the record just completed by OUTPT or OUTPTC. | 
| | 
| COMENT {Scans the limits of a comment, outputting each character into the | 
| Joutput buffer. | 
| | | 
| FREVAL |Releases a chain of IVBs containing а no longer needed value and | 
| {returns chain to free list. | 
| | | 
| GETIVB |Кепоуев an IVB from the free chain for use by the calling routine. | 
| | | 
| GNC | Орааеез TOKPTR to point to the next character іп a particular input | 
| | stream. | 
| | | 
| HASH |Accepts an EBCDIC identifier as input and outputs an index. Тһе | 
| [index indicates the beginning of the HASH chain with which the iden-| 
| |tifier is associated. | 
| | | 
| INCTST |Determines whether Phase BC needs to be reloaded on return from | 
| |Рһаве BG. | 
| | | 
| INPUT |Reads іп an input record from the source data set or from included | 
| | text. | 
| | 
| INRD |Reads physical records from the included data set; deblocks and | 
| [sends them back one logical record at a time. | 
| | | 
| OUTPTC [Outputs a single character into one of the three output media: IVBs, | 
| [text blocks, or external records. | 
| | | 
| SRHDIC |Searches the dictionary for the presence of a named item. | 
| | | 
| STRING [Scans the limits of a string constant, outputting each character. | 
| | | 
| TOKSCN {Examines text, character by character recognizing and returning each| 
| [logical unit of text (called a token). Tokens include identifiers, | 
| |constants, operators, delimiters, etc. | 
| | | 
| YAG2 |Loads processor phases for compile-time processor, | 
Е an pe ree ee a eee ОЕ ee a a ВЕНЕ НЕ eee Scan ae Moa mata qub ai GNE qui ыр 1 
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|Main Processing| | 


Table AV Phase AV Macro Processing Initiali 


zation 


а ло азса ааа m ар пово аа с merce RUE PIDE 1 
|Main Processinqg| | 
| Statement or Operation Type | Routine | Subroutines Used | 
-----------------------------------4--------------- %-----------------------------------1 
|initializes communication area for |INIT | | 
| compile-time processing | | | 
----------------------------------- 4---------------4-----------------------------------1 
|Allocates push down stack from | INIT | | 
jscratch storage | | | 
-------------------------------- ---і--------------- 4----------------------------------- 1 
jAllocates translation tables | INIT | | 
----------------------------------- І---------------4-----------------------------------1 
[Enters SUBSTR into dictionary | INIT | | 
----------------------------------- І---------------1-----------------------------------4 
[Creates dictionary entries and | INIT | | 
[values for constants pool | | | 
mH ыы шалды ыса nee eee Жылы ашасын ыса ae шысы самалы шалын 1 
Table АУ1. Phase AV Routine/Subroutine Directory 
porco ee ee сар quce cce a ee ee yd далық 1 
| Routine/Subroutine | Function | 
a ll ed ЕН Е ЧЕН ИОН ЕО ама ЫСЫ азалы олы шылы ыла 1 
| INIT |Entry point to the initialization phase. This initializes the com- | 
| |munication region for compile-time processing. | 
| | | 
| WWNO48 |Һ11осағев the push down stack (to be used by Phases BC and BG) from | 
| |scratch storage. | 
| | | 
| WWOVLP {Sets up tables to translate external code to EBCDIC; tests the | 
| | BCD, EBCDIC option. | 
| | 
| WWOBCD |Enters built-in function SUBSTR into dictionary. | 
| | | 
| WWCHNBEG {Creates dictionary entries and values for compile-time constant | 
| | pool. | 
PM SUNG в D ————— ———————— o Ó—————— ———Á— 4 
Table BC. Phase BC Initial Scan and Translation 
Fe ee ag ту ени Ten TS a a a, a a aa asa 1 
|Маіп Processing| | 
| Statement or Operation Type | Routine | Subroutines Used | 
}----- ------------------------------ 4--------------- %----------------------------------- 1 
|Recognizes statement type | PH1SCN | TOKEN, DELETE | 
}~--------------------- ------------- %--------------- 4----------------------------------- і 
{Scans until next % character | PH1SCN | FINDPC | 
----------------------------------- І%---------------І-----------------------------------1 
|Рсосеввев PROCEDURE statement |РН15СМ | TOKEN, DELETE, IDSRCH, | 
| | | ADDSP (FREVAL, OUTPTC) | 
}----------------------------------- 4---------- -----4-------------------------- --------- 1 
|Processes labels attached to вғағе-|РН15СМ | IDSRCH | 
| ment | | | 
----------------------------------- і--------------- І----------------------------------- 1 
|Encodes statement into internal | PH1SCN | PARSE, TOKEN, IDSRCH, ADDSP | 
| text | |DELETE, CHECK | 
-----------------------------------1--------------- Іі----------------------------------- 4 
{Cleans up after INCLUDE іп initial |РН15СМ | | 
į scan | | | 
Ё і--------------- = { 
|Begins statement identification | PH1SCN | | 
| process | | | 
кошы сы ышы ал eee ала шы шасын el T RETIRER ыы жазылса Лл сола ЗЕ шшш Ышш 1 
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С SNNT CIPIT анан eT ea, ділде д жалық nC SR eg ee АТ Eq 1 
| Function | 
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{Obtains the dictionary reference of a constant, entering it into the 
[dictionary if necessary. 


|Adds a processor-created item to the dictionary. 


|Adds a normal item to the end of the appropriate hash chain and 
|returns the dictionary reference. 


| 
|Processes PROCEDURE statement. 


|Checks back for undefined labels and identifiers not declared within 
|the block. 

| 
|Skips over bad text up to the end of a statement, field or proce- 
| dure. 

| 
[Scans source text, character by character, searching for macro per- 
[cent character. 


| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

|Obtains the dictionary reference of an identifier, entering it in | 
{the dictionary if necessary. | 
| | 
|Determines whether scan is inside a procedure block. | 
| | 
{Processes label list. A label list for a PROCEDURE statement is | 
Jhandled differently from other labels. | 
| | 
| Produces code for identifier statement. The PARSE routine is used | 
[Со code all expressions. | 
| | 
|Parses and generates interpretive macro code for compile-time | 
|expressions. | 
| | 
| Provides special handling for end of included text. | 
| 

| 

| 

| 

| 

| 

| 

| 

1 


|Маіп controlling routine for phase. 


|Collects labels into label list and identifier statement type on 
jfirst two tokens of statement. 

| 
|Returns significant tokens to PH1SCN and outputs diagnostics for 
|tokens in error. 


алы с-ш — ———Ó————— —— À——— ———— —À— — MM— 


Table BG. Phase BG Final Scan and о 

асык к анын Азда тынын дан А IPM qeu oT № О сансан к аннан тит ee нық 1 
Main Processing| | 
] Statement or Operation Type | Routine | Subroutines Used 1 
—— «ме еее — «ше «ше «ше «с» «ее «м» «ше c «ме «ше "M «ше «ео «ше «е» «ке ee «ке «ме ee ee «мө oe --4--------------- Ғ------------------:----------------4 
|Final scan for replacements | PH2SCN | OUTPUT, TOKSCN, SRHDIC | 
| ----------------------------------- +--------------- }----------------------------------- 1 
| Recognition of end of text | PH2SCN |OUTPUT, TOKSCN, SRHDIC | 
----------------------------------- І---------------1-----------------------------------1 
| Recognition of an identifier | PH2SCN |oUTPUT, TOKSCN, SRHDIC | 
І----------------------------------- %--------------- І----------------------------------- 1 
{Recognition of macro action | PH28CN |OUTPUT, TOKSCN, SRHDIC | 
І------------------------------ -----4--------------- І----------------------------------- 1 
| Recognition of % character | PH2SCN |OUTPUT, TOKSCN, SRHDIC 1 
І----------------------------------- %--------------- І----------------------------------- 1 
|Recognition of other characters | PH2SCN | OUTPUT, TOKSCN, SRHDIC | 
parc TO aes ee a ee IRE I---------------j------2-22----—-------—--—---——--——---4 
| Terminates and cleans up INCLUDE | PH2SCN |OUTPUT, TOKSCN, SRHDIC | 
| handling | 1 | 
-----------------------------------4----------- ----4----------------------------------- 1 
|Re-establishes scan at next higher. |PH2SCN | OUTPUT, TOKSCN, SRHDIC | 
| level text | | | 
----------------------------------- %--------------- %----------------------------------- 1 
|Performs replacement on activated  |PH2SCN | OUTPUT, TOKSCN, SRHDIC ] 
оленя | | | 
tW залды ан ыы шала RUD ааа зы сыла ысы ып алымы ыды ылас С ыза tux) 

Table BG1. Phase BG Routine/subroutine Directory 
—————Á—————— —— —— ————————Á——————— ——— ES БАНИРЕЕЕННРИ = 
| Routine/Subroutine] Function | 
Spe ee ЕР penn Асан ee НА %--------------------------------------------------------------------і 
| CONVRT |Handles conversions between the three data types used in the | 
| compile-time processor | 
| | | 
| DACLN |Terminates INCLUDE text handling and frees text blocks containing | 
| jincluded text. | 
| | 
| DAEO |Re-establishes scan at next higher level text. | 
| | | 
| DAEOBF | Recognizes and processes end of text condition. | 
| | | 
| DAIDEN | Recognizes and processes identifier in text. | 
| | | 
| DAMA |Recognizes and processes macro action character. | 
| | | 
| DAOTHR {Recognizes character and outputs it. | 
| | | 
| DAPENT |Handles replacement operation for text identifiers. | 
| | | 
| DAPRTC {Recognizes % character and recalls Phase BC if appropriate. | 
| | | 
| GETDIC |Ріскв up a two-byte dictionary reference from scrubbed text, per- | 
| |forms error checking, resolves indirect references, and returns both| 
| [relative and absolute address. | 
|. | | 
| INTPRT (BI) | Interprets the macro code generated ру the Phase I scan. | 
{ | | 
TOUTPT [Handles the output of tokens. | 
| | 
| PH2SCN | Scans text blocks. | 
| | | 
[РОР |Pops the top temporary off the Phase II stack. | 
| | 
|PROINV (BI) |Special entry point to interpreter for invocation of procedures | 
| |found in source program text. | 
| 1 | 
PRES “Трмвһез- next available temporary onto the Phase ІІ stack. 1 
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Table BM. 


Phase BM Diagnostic зг Determination and Printing 


арры a ee ee a et ee РЕ ЖЕРЙ ЖЕ, п а аа a a aa 1 
[Main Processing] | 
| Statement or Operation Type | Routine | Subroutines Used | 
----------------------------------- %---------------1-----------------------------------1 
| Determines whether error messages |ХА | None | 
|are to be printed | | | 
-Р----------------------------------- 4--------------- %----------------------------------- 1 
|Scans error message text Skeletons | XA8 |ХА50, XA70, XA90, ХА110, ZUPL | 
jand prints them out | | | 
Қалы сы oe ына аа ды зы шасы St a ————— Жы ee eee J 
Table BM1. Phase BM Routine/Subroutine Directory 
p--——------22-----2-q4-------------------2------------------------------------------------- 1 
[Routine/subroutine| Function | 
------------------- ІҺ-------------------------------------- ------------------------------ 1 
| ХА |Determines whether error messages are to be printed. | 
| | | 
| ХАО |Sets severity code. | 
| 
| ХА01 |Establishes which message types to suppress. | 
| | | 
[ХА1 |Counts number of error chains to be processed. | 
| | 
| ХА2 |Puts out messages if there are no diagnostics. | 
| | | 
| XA4 [Prints out "COMPILER DIAGNOSTIC MESSAGES". | 
| | | 
| XA7 |First scan of message chains. | 
| | | 
| XA8 |5сапв error message text skeletons and prints them. | 
| | | 
|ХА9 (BN) |Scans to head of next non-empty chain. | 
| | 
| XA12A [Selects and prints header for messages of given severity. | 
| | | 
|XA30 (BN) |Gets next entry in message chain. | 
| | | 
| XA32 (BN) {Builds up first part of message in buffer. | 
| | | 
|ХАЗ5 (BN) | Accesses message skeleton. | 
| | 
| ХАО (BN) | Puts out completed message. | 
| | | 
{ХА50 (BN) |Moves message text to print buffer. | 
| l | 
|ХА70 (BN) |Converts binary statement number to character representation, апа | 
| [moves it to print buffer. | 
| | | 
|ХА90 (BN) {Converts binary numeric value to character representation and moves | 
| Jit to print buffer. | 
| | | 
|ХА110 (BN) |Моуев identifier from dictionary entry to the print area. | 
| | | 
|20РІ, on a line on SYSPRINT data set. | 
dO лш шаны a ЕРА шшш ae E ЫЫЫ 1 
Table BW. Phase BW Cleanup Phase 


— 
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t 
і 
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і 
1 
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[ 


| Statement or Operation Type 
|Resets all tables and communi- 
[cations region cells to the value 
[required by the compiler proper 


xm ee RUDI CE | C GONE hc LM E MCN M C ROC CE са | 
|Main Processing| | 
| Routine | Subroutines Used | 

--------------------- І---------------4-----------------------------------1 
| ТЕМВИ | None | 
| | | 
| | | 

шала сынылатын ақысы кенени ee лысы сов eese d dace dec ссан ыты 


Read-In Logical Phase Diagram Flowchart 
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Chart BX. Phase BK Overall Logic Diagram 
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Phase CI Overall Logic Diagram 
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Chart CL. Phase CL Overall Logic Diagram 
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Phase CS Overall Logic Diagram 
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Table BX. Phase BX 48-Character Set Preprocessor 


re qm UNUM ee нынан a ee quom qoem mme 1 
|Main Processing| | 

| Statement or Operation Type | Routine | Subroutines Used | 
----------------------------------- 4---------------1-----------------------------------і1 

| Translates keyword table to inter- |BAOO | None | 
[nal code and initializes | | | 
----------------------------------- І---------------І-----------------------------------1 

|Reads а record | BAL |ZURD (AA) | 
----------------------------------- %---------------і-----------------------------------і1 

{Scans text [ВАТА | None | 
----------------------------------- І---------------1-----------------------------------1 

{Handles operators and keywords | BA5 | None | 
------------- ----------------------|---------------|-----------------------------------і 

|Вер1асез operator keywords | BA11 | None | 
----------------------------------- у 

{Replaces comma-dot by semi-colon | BA20 | None | 
jwhere applicable | | | 
----------------------------------- %---------------4-----------------------------------1 

|Deals with quote marks |ВА25 | None | 
----------------------------------- 4---------------4-----------------------------------і1 

{Maintains parenthesis level count  |BA30 | None | 
----------------------------------- ---------------1-----------------------------------і 

|Replaces period-period by colon | BA4O | None | 
м ф--—--—--------- І----------------------------------- 1 
|Processes a slash | BA50 | None | 
----------------------------------- к 

|Reads one record ahead in case of |ВА70 | None | 
| need | | | 
І----------------------------------- d---——--—----—- 4----------------------------------- 1 
|Restores the situation when a read |ВА80 | None | 
|аһеай has taken place 1 | | 
ммм %-----------------------------------1 

{Puts out converted text and origi- |BA90 | ZUBW | 
|па1 text onto backing store | | | 
beech age ey шшш шы шшш сыш Ee PE Mite Ja ND REUS 1 
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Table CA. Module CA Read-In Common Block 1 


И Е ЕЯ дады сакал а алын que mmm жонс сыйы am e Se 1 
| Function | Subroutines | 
азы ыты ал саат En ош ---------------------4------------------------------------------- 
|Provides subroutines common to all five | АСОМ5Т, DECINT, EXP, EXPAND, EXPLST, IDENT, | 
[Passes of the read-in phase АВ OPTOR, SCONST, SINGLE, SQUID | 
а Е нес ЗНА СЕВ 


Table СА1. Module СА Routine/Subroutine Directory 


|Routine/Subroutine| ~~ Fencion 1 
|ACONST 0000 |Checks for a valid arithmetic constant. = | 
| DECINT {Checks decimal integer. | 
me Pm expressions. | 
CER eis iterations of string constants and picture characters. 
| EXPLST |Checks for a list of expressions separated by commas but enclosed Е 
| | parentheses. | 
ae ТЯ for a valid identifier. | 
нын ЖЕЕ text from one address to another. | 
OTOA {Checks for an operator and replaces the two-byte operators by one- | 
| | byte codes. | 
ЕРИ нее for а valid string constant. | 
henon ТҮ а single expression іп parentheses. | 
| бош [checks for a valid subscripted and qualified identifier. | 
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Table CC. Module CC Read-In Common Block 2 





PSone E M IM M CU M re ee Oe ne quer cue me e Dee Tc eee 1 
| Function | Subroutines 
------------------------------------------- 4-------------------------------------------і 
|Provides subroutines common to all five ІСНАВ, CHECK, KEYWD, MESAGE, NONEX, 
|passes of the read-in phase үне, OPTEST, PECT, PREC, SOFLOW 
сенше x PPM AS MM CER ee eee 
Table СС1. Module CC Routine/Subroutine Directory 
| Routine/Subroutine| Function 
| CHAR |Diagnoses the CHARACTER and BIT data attributes. 
| | 
| CHECK [Tests the top entry in the stack. 

| 
| KEYWD |Identifies keywords and hands back the replacement character. to the 
{ | caller. 
| MESAGE | Provides a diagnostic message. 
| 
| NONEX |Сһескв stack for non-executable statements. 
| | 
[NULINS |Inserts null statement in output text. 
l 
| OPTEST [Tests the output string and moves text to the output. 
| 
| PICT | ріадпоѕеѕ a picture. It uses а TRT table set up for the purpose. 

‚ . | PREC [Diagnoses the precision, and the attributes and format items which 

| |use it. 
БЕКЕЙ | Bumps stack pointer and checks for stack overflow. 

ылы тыл Cpu ND Tre UR RR RCM тасыса За E 
Table CE. Modules CE, CK, CN, and CR Read-In Keyword Block 
[oce = Е [ ee 1 
| Function | Subroutines 


| Provides tables of keywords in internal ! 
|code, together with replacement code. | 
[No functional code exists in these modules. | 
[Refer to Appendix B for details of keyword | 
[tabes | 

1 


A at os a es ыш E шаршен санан аы NU GE anc as Siew ete oe ai ee A Umi at OT SS шш элш aum AED «ли» «ғы» «лы» «қа» dum «мл» «ши» cuam Se «ла» жш» «әл» UND «ал» «ки» «вл puo «ЖЕУ «ки» «шә «не «шә 
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Table CI. Phase СІ Read-In First Pass 


CO аа ааа ee дар My ee rr TEE mm 1 
Імаіп Processing| | 
| Statement or Operation Type | Routine | Subroutines Used | 
----------------------------------- 3---------------|-----------------------------------і 
[Controls main scan, identifies | RSTART [ASSIGN, BADSTI, BEGIN, DO, | 
[Statements, and analyzes some in | |ELSE, BUMP, END, EOP, ERROR, IF, | 
| detail | |ON, POPLST, PROC, READ, SIGRVT, | 
| | |STAT2, STRING, plus those | 
| | |subroutines contained in modules CA| 
| | Тапа сс | 
———— Ó—————— —— НИЎ Do te tis тысы — A — € € ——À 1 
Table СІ1. Phase СІ Routine/Subroutine Directory 
{Rout ine/Subroutine| Function 
|ASSIGN (CG) |Diagnoses an assignment statement. 
| 
| BADST1. |Recovers from failure to recognize a statement type; skips to next 
| | semi-colon. 
BEGIN (CG) |Checks the BEGIN statement and makes an entry in the first pass 
| stack. 
| 
ВОМР {Advances the input Data Pointer (ОРУ, skips blanks, if any, forcing 
|source text to be read into storage as necessary. 
| 
DO (CG) |Checks the DO statements and makes an entry in the first pass stack. 
| 
ELSE (CG) jUnstacks an IF compound statement. 
} 
END (CG) | Processes three different types of END statements; PROCEDURE- BEGIN; 
|DO; iterative DO. 
| 
ENTRY | Processes ENTRY statement. 
| 
ЕОР [Processes end-of-program marker, and returns to compiler control іп 


jorder to load next pass. 


| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

і 

| 

| 

| 

| 

} 

| 

| | 
|ERROR (CG) |Handles false starts on possible statements. 
| | 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 


IF (СС? |5сапв the IF statement and makes entry in first pass stack. 

ON (CG) енен the ОМ statement and makes entry іп first pass stack. 

POPLST |Removes prefix options from the text and places them in the dic- 
| tionary. 

PROC дыз the PROCEDURE and ENTRY statement and makes an entry in the 


|first pass stack. 

| 

READ [Reads source text into storage, translating it into internal code, 
lexcept for character strings; removes comments; prints source list- 
ling and prefix options. 


RSTART |Controls the first pass scan. Enters statement labeis into the 


| dictionary. 
SIGRVT (CG) {Scans SIGNAL and REVERT statements. 
'STAT2 (CG) НИ all other statements. 
STID [Statement identifier routine. 
[STRING (CG) [scans character strings. 
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Table CL. 


Phase CL Read-In Second Pass 


[EI est ee ee ee ee ee ee ee Tic yao ee ei И Sa a ad 1 


[Main Processing| | 


| Statement or Operation Type | Routine | Subroutines Used | 
-Һ----------------------------------- 4--------------- 4------------------------------ -----4 
|5сапв for statements handled іп | SCNA |BUMP, DELAY, DSPLAY, DO, FREE, | 
|this pass, analyzing them in | |GOTO, ITDO, LABEL,’ PROC, RETURN, | 
|detail. Skips over other statements| | TRTSC, plus those subroutines con- | 
| | [tained in modules CA and CC | 
РИ НО ЧЕ ЕЖЕ ЕЕ НН В зау ыы ы аша Жазасы уыл а M HUE DE NE J 


Table CL1. 


мелше кеннен і---------- 
| BUMP 

| ГТ 
| DELAY | Processes 
| | 

| DSPLAY | Processes 
| | 

| DO | Processes 
| | 

| EOP | Processes 
| ICS, or CV 
| | 

| FREE | Processes 
| | 

| СОТО | Processes 
| | 

| ITDO | Processes 
| | 

| LABEL | Diagnoses 
| | 

| OPTION 

| | 

|PROC (CM) 

| 

| | 

| RETURN | Processes 
| | 

| SCNA 

| | 

| TRTSC 


9u 


F 
| 


|Increments the input Data Pointer (DP), skipping over blanks, 


| Handles OPTIONS attribute on PROCEDURE or ENTRY statements. 


|Analyzes PROCEDURE attributes and options, and completes the diag- 
[nosis of PROCEDURE and ENTRY statements. 


|Main controlling routine of this pass. 


|Skips over all other statements. 


Phase CL Routine/Subroutine Directory 


ғ-------------- 
| Routine/Subroutine 


а a a э р ыы à 
Function | 


a SS ae лы a R а MÀ — ыы ---------1 


a new text block if necessary. 
DELAY statements. 

DISPLAY statements. 

DO statements. 


end-of-program marker, and releases control to phase CO or 
(CO and CS are optional phases). 


FREE statements. 
GOTO statements. 
iterative DO statements. 


LABEL attributes. 


RETURN statements. 


bee == eem — «мек me «кеше «кете A «ғас — ee «меке P — ge Y — mu OE um өзе» "amas GSS Su «ее» eee ee ee арымы мае» 


Table СО. 


Phase CO Read-In Third Pass 


а aa cy AT we Е Pegi a ee Sg ort seo ee gee улы лл, п парро аа UE LC КАЗЫЙ a x E ad 1 


| Statement or Operation Type | Routine | Subroutines Used | 
[Scans for DECLARE, CALL, and isa [ATILST, BUMP, CALLOP, DECL, DEFEND. | 
| ALLOCATE statements. Analyzes | |DIMS, ENTRY, ENVMNT, EOP, | 
|syntax of attributes by calling | | СЕМКІС, LABEL, LIKE, USES, IVLIST, | 
|appropriate subroutines | land those subroutines contained in | 
| | [modules СА and CC | 
Келсе EE ышы ыйы ада алы ee fey te с шыр Peccato ee ur С БАЕРАК c a C E осыны 1 
Table С01. Phase СО Routine/Subroutine Directory 
|Routine/Subroutine| |^ Function | | 
|ATTLST 000 2027.22.75 | 
eor ere DECLARE or ALLOCATE statement. | 
fo TEM Data Pointer (DP), obtaining new input block if necessary. | 
|CALLOP (CP) |Checks CALL statements and options. | 
‘pace PON the DECLARE and ALLOCATE statements. | 
| DEF IND ӨТЕН the DEFINED attribute. | 
lore niis the dimension specifications. | 
on РЯ the ENTRY attribute. | 
poner (CP) ен environment information from the text and inserts it into | 
| |the dictionary. | 
T CO the end-of-program marker, and releases control. | 
НЕ | Processes the GENERIC attribute. | 
ree (CP) ИЕНІ the INITIAL attribute | 
| LABEL (CP) КҮТ LABEL attribute. | 
lors к the LIKE attribute. | 
| SCAN2 eee for DECLARE, CALL, or ALLOCATE statements, moves others to Е 
| Joutput string unaltered. | 
P. sees text to semicolon without alteration. | 
|uses [Processes the USES and SETS attributes. | 
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|Main Processing] 


Table CS. Phase CS Read-In Fourth Pass 


еи a то ИЕ Ba ee oe ee ваи аркы ee re ано! 
| Маіп Processing| | 

| Statement or Operation Type | Routine | Subroutines Used | 
ыы --%-----------------------------------і 

{Controls main scan and identifies  |SCNA |ЕОР, FORMAT, GET, LIST, OPEN, | 
|І/О statements for further analysis| |READ, TRTSC, plus those subroutines] 
| 1 | contained in modules СА and CC | 
ааа Sa ut e E а тасыса ae mee асасы АРИР cere ee Шым ee са ааа ЫЕ 1 


Table CS1. Phase CS routine/Subroutine Directory 


fo AR UE Cup rU E rr mc UE er eg ee T nm Mw eo Be И ee ee 1 
| Routine/Subroutine| Function | 
}------------------ 4-------------------------------------- ------------------------------ 1 
| | 
| EOP | Processes end-of-program marker and releases control. 
| 
| FORMAT (CT) |Processes the FORMAT statement and format lists. 
| 
|GET (CT) |Processes GET and PUT statements. 
| 
| LIST {Processes data lists. 
| | 
| ОРЕМ (CT) {Diagnoses OPEN ара CLOSE statements. 
| READ [Checks the syntax of RECORD I/O statements READ, WRITE, REWRITE, and 


|DELETE. This routine also checks for permissible combinations of 
[these statements. 


| 


| 

| 

| „ 2 

| SCNA {Main scan of this pass. 

| | 

| TRTSC [Skips over all statements other than I/O, moving them to the output 
| | text. | 

| 

| UNLOCK {Deferred feature. Puts out a message and deletes the statement. 

Қасым ag ышы о ИНОЕ ыы жаласын ды € —Á ÁÁ—— асыны — € ac 
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Table CV. Phase CV Read-In Fifth Pass 


| Statement or Operation Type | 


ьа н — ! — «ла» «шы» n  — «ф- «еч» — re ee ee «ме «кке — «қи» ow oe «m e s an «ке» we «ха» — ee ee ee en ee «м» «к «а» «мс «а» EA cum dum m um ee re mm 


|Identifies statements for which it |SCNA 
|must build chains 


T 
[Main Processing| 
Routine | 


| 
| 10990-68 СА апа сс. 
1 


| CALLIN, CHAIN, DECL3, 003, END3, 
| |ENTRY3, EOP, РОА1, PROC3, TRTSC, 
jand those subroutines contained in 


Table CV1. Phase CV Routine/Subroutine Directory 
|Routine/Subroutine| — юм 1 
[CALLIN (em) [wakes up the CALL chain, >>> >>>. RE 
free ЗРЯ сһаіпѕ. 
ОТ |Спескв the fifth pass stack for ON entry, in order to insert 
| PROC-END statements round the ON unit. 
DECL3 КЕТ the DECLARE statement to the appropriate PROC or BEGIN state- 
| ment. 
DO3 КЕС a stack entry for DO block. 
END3 ЕТЕ the fifth pass stack. 
ENTRY3 sies an entry in the ENTRY chain. 
EOP: (CW) | 


|Processes end-of-program marker, and releases control. 


[Creates pseudo-assignment statements for initial labels. 


|Analyzes prefix options in greater detail. 


|Processes check lists. 


|Makes an entry in the PROCEDURE-BEGIN chain. 


|Main controlling routine of the pass. 


|Extracts statement number for label entry. 


|Skips over statements not required for analysis in this phase. 
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Chart 03. 
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Dictionary Logical Phase Flowchart 
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Chart EL. Phase FL Overall Logic Diagram 
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Chart EP. Phase EP Overall Logic Diagram 
жежже 
*EP ж 
ж Al% 
ж 
ж 
. МОТЕ: 
. INPUT FROM PHASE EG IF. THERE 
PHSMRK X ARE NU DECLARE STATEMENTS 
xxckcioR A | ЖЕЖ 
ж CONDITIONALLY * 
ж MARK PHASES ж 
ж WANTED AND * 
* NOT WANTED * 
* Жжж 
WHEE жж жж ook ж ж 
. * B2 * 
. ж ж 
2 жж 
. . 
. . “44%44%4%%4%%%ешеесесееееееевееееееееееееееевеегеееесегвее 
. . . . 
EPL20 X L8PROC X EPL75 X 4%. ЕР! 100 . 
448%] Жжжж Во жежок HIKE p 3 ЖЖ к 84 ж. REEKEBS REAR ERE ES 
* 90 Т0 ж ж ж ж CONSTRUCT .* *. * * 
ж FIRST ENTRY ж * GO TO DICT * ж ENTRIES * .* LAST ж. NO * GO TO DICT * 
* IN %........ХЖ ENTRY FOR ж........Хж ТҮРЕ 2 AND ж........Х%. LABEL 2%........ХЖж ENTRY FOR * 
ж ENTRY TYPE 1 * * FIRST LABEL * * 3 IF NOT * ж. .* * NEXT LABEL * 
CHAIN * * ж THERE * ж, .% ж ж 
Sete Кж tO Жок ke te ж Жк EEEE E Ж оф ж ж. „ж оок 
* YES 
EPL40 X .*. 
ыы сз ж, 
ж 60 ТО МЕХТ ж .* ж» 
* ENTRY IN Ы .* ж. YES ж ж 
ж PROCEDURE ж........Хж%, PROCEDURE .%....Х% B2 ж 
ж ENTRY CHAIN ж ” ж ж ж 
ж ж ж, .ж жжжж 
ЖЖК ETTET a tek ж. ok 
ж NO 
Х.ееее%4%%ее%ееө%ееевееөееееее%ееееесеезееееееоееееевее 
X • NO 
EPL600 .*. RM 
жр KEKE REE ERK D3 ж. жу жр ER ERE RHEE EE D5 ж. 
ж GET TEXT ж .* * * ж .* ж. 
ж ВЕҒЕКЕМСЕ ж YES .* END OF ж. NO ж GO TO NEXT * .* ж, 
ж DF START OF ЖХ...................4%.............Ж%. ENTRY CHAIN 2%........ХЖ ITEM IN CHAIN ж,.......Х%, PRICTEDURE .X 
* CALL CHAIN * ж, .% ж ж *. .% 
ж ж ж, .% ж ж ж. .* 
de toto doe dokedejoteleete ж. .* жооок ж, „ж 
. ж ж YES 
жуй é б Жжжж 
. . * 
ж E] *.X. ..X* B2 * 
м ж ж 
жж X жжжж 
„Ж, 2%. ЕР( 340 2%, CDICEN 
El ж. ЖЖ Ок жж жж ЕЗ ж. E4 ж. RRR ERE Se ORE Ok 
„Ж ж, ж 5САМ ТНЕ ж .% ж. -% 15 ж. *MAKE DICTIONARY* 
.* END ж. NO * DICTIONARY ж . ж. № «ЖІБЕМТІРІЕЕ ж. NO ж ENTRY USING ж 
ж. OF CALL обо ооо оо о ХЖ FOR THE Ж........ХЖ, KNOWN 2%........Х%,. BUILT-IN 2%........Х% DEFAULT RULES ж 
ж. CHAIN .* ж IDENTIFIER ж . *.FUNCTION „ж ж FOR DATA ТҮРЕ ж 
А .% ж ж ж. .* ж, „* * * 
ж. .* Жк ETETETT ETE] ж. „Ж ж, .* LEESE EEE EE EEE EET E 
* YES * YES * YES . , 
X . . . 
***** CONTROL PASSED TO . . . 
*EW ж PHASE EW (OPTIONAL) OR X . А 
ж Діж PHASE EY (OPTIONAL) OR 2%. X EPL360 X 
ж € PHASE ҒА (NON-OPTIGNAL) F3 ж. Жжжж кж ЖЖЖ Xo dex жж RE ERK 
* .* ж. ж GENERATE ж ж REPLACE * 
„Ж 1$ ж. NU * ERROR * * BCD BY ж 
ж, CALL 25.......ХЖ% MESSAGE ж ж DICTIONARY ж 
. VALID ж ж INSERT DUMMY * * REFERENCE * 
*. .% x REFERENCE * * ж 
ж. „Ж 222255333233 ЕЖЕ 
* YES . . 
EPL 36О X ЕР{ 296 х . 
ЕТТЕ ЕРЕ жк ЕРІТЕ 35333 3 
ж REPLACE ж ж GET TEXT * . 
ж BCD BY * ж КЕҒЕКЕМСЕ ж . 
ж DICTIONARY Хосе». ХЖ OF NEXT Хо ооо оо өгеееееее 
* КЕРЕКЕМСЕ ж ж ITEM IN 
ж ж ж CALL CHAIN ж 
хокро кой FOR OR a ROR ок 
X 
LETE] 
ж ж 
ж E] ж 
* ж 
kkk% 


102 


Chart EW. 
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Phase EW Overall Logic Diagram 
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Chart FA. Phase FA Overall Logic Diagram 
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ж“ YES * YES : * YE : &' YES 
қ М : x : : 
e . е . . X 
2 5 e * eR xo x 
: 5 5 я > *GA * 
x x S REFMOV X 2 ж”д2Ж 
Жи | RR RR жежккж) FRE EK RK KEK ЖЕ GRR EERE EK К «ж 
ж ADD STATEMENT X 2 SCAN CHAIN OF б * 
*NUMBER TO CHAIN* * PRINT * $ * STATEMENT ж 2 
eee* FOR THIS DICT $ ATTRIBUTES ...... NUMBERS АМО ..... 
* * * * PRINT THEM 
жаккка КЖ ЖЖ Жека 
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Table EG. 


Phase EG Dictionary Initialization 


Poop oe Sg ae ee өза a aa Fg ынны ананы ee SEES Doin ae ҮҮ AR by Be Wag x gre a ee Og i жанан ey DES ЕС ро 1 


| Statement or Operation Туре | 


нь ae —————————————————————————————— 


– «ңе — — — — — —À — ——— — —— —— «шә a — —— «ме» ee ee — еже чан «шә «шә «ки» «мә «ә» — e еш» 


Routine | Subroutines Used 
polo ug cepe eere к: DC D OE 
С неа р ee tee 
(cen нанын 18] 1 ee а йе Аа ашы 


ез ке — «ее — «ше — — A «кею ыш шш шш re «м» «ме» — — «е «әже «ғ» чш «ке «е чш — «же ыа «кө — е «әке «ме ш --- 


{Attribute list CANATP |САРКЕ1, САТСНА, CATBIT, CATPIC 

| -----------~-----------------------}--------------- }-~~-----------------~------------- 
|Creates entry type 2 entries for CTYPBL |ENT2F, CDEFAT 

dii | 

aeta DETUR QU TUORUM: р ie к D ——— — — —— ————— — 
Table EG1. Phase EG Routine/Subroutine Directory 

| Routine/Subroutine| Function 


|Main Processing| 


+ 
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| CANATP, CFORP 


|CHASH, CBCDL2 
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i ТӨРЕ 
-......... 


------------------- І---------------------------------------------- ---------------------- 1 
[Scans label table and hashes labels. 


ааа 
oe 
РЕЙ 
ОА 
А 
макете 
К 
C 
TE 


| 
| CBCDL2 
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| Processes 


| Processes 


| Processes 


| Processes 


| Processes 


| Processes 


{Scans the 


| Processes 


| Processes 


| Traverses 
{that just 


| Completes 


| Processes 


attribute list. 

PROCEDURE statements. 

precision data. 

BIT attribute. 

CHARACTER attribute. 

PICTURE attribute. 

PROCEDURE-BEGIN chain for the relevant statements. 
BEGIN statements. 

ENTRY statements. 


the hash chain looking for entries with the same BCD as 
found. 


data byte for entry type 2 entries by default rules. 


formal parameter lists. 


{Obtains an address in the hash table for an identifier. 


{Creates entry type 2 entries for labels. 


{Creates or copies second file statements. 


ocan ENTRY chain. 


| — mme e m a — as екен» a өтесе Фама аары баина ило жәнек a a a == n e ашам s алалы өзен» PP (————— a шыла» жеме 


Table EI. 


Phase EI Dictionary Declare Pass One 


| Statement or Operation | Routine | Subroutines Used | 
-----------------------------------|--------------- І-----------------------------------4 
[Scans DECLARE statement {CCGSO | None | 
= }----------------------------------- 1 
{Scans text [CCGS2 | None | 
}---------------------------- -------4--------------- %----------------------------------- 1 
{Processes structure level |CCGSCM | None | 
І-----------------------------------|--------------- > 1 
|Factored attribute, left | CCFLP | CFPMCR | 
| parenthesis | | | 
----------------------------------- І--------------- І----------------------------------- 1 
|Factored attribute, right | CCF RP | None | 
| parenthesis | | | 
----------------------------------- І---------------1-----------------------------------4 
|Баға following DEFINED attribute | CCDEF |NEWBLK, CTXTRM | 
----------------------------------- І---------------1-----------------------------------4 
| POSITION | POSIT | None | 
----------------------------------- І---------------І-----------------------------------1 
| CHARACTER, BIT | CHABIT | CTXTRM | 
----------------------------------- І---------------4-----------------------------------41 
| PICTURE |САТРІС | None | 
----------------------------------- 4---------------1-----------------------------------4 
|USES, SETS | SETS | None | 
----------------------------------- І---------------4-----------------------------------4 
| LIKE | LIKE | None | 
----------------------------------- %---------------1-----------------------------------і 
| KEY | KEYED | None | 
І---------------------------------- Іі--------------- І----------------------------------- 1 
| Dimension | CDDIMS {CTXTRM, AST, TOMENE, ERRORB | 
----------------------------------- І---------------4-----------------------------------і 
| Precision | CDPREC | ERRNEG, SCLBIG | 
----------------------------------- а 
| INITIAL |ЕСІМІТ |СЕСОМ, ЕНІМІТ | 
----------------------------------- %---------------і1-----------------------------------1 
| INITIAL CALL | INCALL | CTXTRM 
——————————— Da Se ae ee НЕ. Se a кец ке es ане | 
Table ЕІ1. Phase EI Routine/Subroutine Directory 
a сы тана ee Se t А НЕ Е НЕНИЯ ЗИ ЕЕ E al ek fe a a Sak Ea a 5 
[Routine/Subroutinel Function | 
------------ = 
| AST [Deals with the case of * dimension bounds mixed with non-* bounds. | 
| | | 
| CATPIC | Processes PICTURE attributes. | 
| | | 
| CCDEF |Processes data following DEFINED attribute. | 
| l | 
| CCF LP |Processes factored attributes (left parenthesis). | 
| | | 
| CCFRP |Processes factored attributes (right parenthesis). | 
| | | 
| CCGSCM {Processes structure level. | 
| | 
| CCGSAT {Attribute routine selector. | 
| | 
| CCGSE |5сапв DECLARE chain. | 
| | | 
|ССС500 |Scans text. | 
| | | 
| CCGS2 |Scans source text. | 
| | | 
IEDDIM- (EJ) |Processes dimension attributes. | 
Sete ea ыз гыш Шы a MO PO ы are ne a ee a шалы саты шы шышы рыш шыш 
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Table EI1. 


Phase EI Routine/Subroutine Directory (cont'd) 


Derg а АЕ Е ЕСО T Ra Ta MINE = a ae a ee gee SS me Soy катын тела ақы уалы CE a a ge ggg es igs Pek ee 1 
| Routine/Subroutine| Function | 
}------------------ --------------------------------------------------------------- -----1 
| СОРВЕС (J) |Processes precision attributes. | 
| | | 
|CECON (EH) |Makes a dictionary entry for a constant unless one has already been | 
| | маде. Returns the dictionary reference of the constant entry. | 
| | | 
| CFPMCR lObtains more storage for the factored attribute table. | 
| | 
| CHABIT |Processes CHARACTER and BIT attributes. | 
E | | 
| | | 
{С56500 |Detects end of DECLARE chain. | 
| | 
|СТХТЕМ |Tests for space in current text block and obtains new block if пес- | 
| lessary. | 
| | | 
| ЕНІМІТ (ЕН) | Ргосеѕѕеѕ the INITIAL attribute except for the initialization of | 
| | 1аре1 variables and INITIAL CALL. | 
| | | 
|EJINIT (EJ) |Processes INITIAL attribute and LABEL with a label-constant list. | 
| | | 
| ERRNEG |Deals with the case of a negative precision specification. | 
| | | 
| ERRORB [Deals with the case of lower dimension bound declared greater then | 
| {the upper bound. | 
| | | 
| GENTRY | Кеерѕ a count of parentheses in GENERIC and ENTRY processing. | 
| | | 
|INCALL (EJ) |Processes INITIAL CALL attributes. | 
| | | 
| ТУКООМ (EH) |Спескв if there is space іп scratch storage for another entry. If |) 
| |not, it makes a dictionary entry and chains it to the previous one | 
| Jor to the C8 in text as required. | 
| | 
| IVPUTL (EH) {Places a dictionary reference in the ‘initial 115%" for a label | 
| |constant. If the constant is not known, a dummy reference is | 
| | inserted. | 
| | 
[ТУРОТС (EH) {Places a dictionary reference in the ‘initial 115%" for a constant. | 
| | | 
|IVPUTO (EH) |Places the dictionary reference of zero in the *initial 115%" for a | 
| |negative or imaginary replication factor. | 
| | | 
| KEYED | Processes KEY attributes. | 
| | | 
| LIKE [Processes LIKE attributes. | 
| | | 
| NEWBLK [Obtains new text block. | 
| | | 
| POSIT {Processes POSITION attributes. | 
| | i | 
| SCLBIG |Deals with the case when the scale factor in a precision specifi- | 
| | сасіоп for fixed-point data is declared too large. | 
| | | 
| SECON |Creates a dictionary entry for a constant provided the appropriate | 
| |епегү has not been already made. | 
| | | 
| SETS |Processes USES and SETS attributes. | 
| | | 
| ТОМЕМЕ {Deals with the case when the number of dimensions declared is great-| 
| Jer than 32. | 
——— —— dog a ce ы E ылыш ышы шш ылы Mcd e cL ыыы ЗИ ШШШ J 
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Table EL. 


Phase EL Dictionary Declare Pass Two 


> т 1 
|Main Processing | 


| Statement or Operation Type | Routine | Subroutines Used | 
-----------------------------------і--------------- І-----------------------------------і 
|5сапв chain of DECLARE statements  |CGENSC | CDCLSC | 
-----------------------------------4----------------4------------------------------------ 1 
|5сапв each item of DECLARE | CDCLSC |ATLSCN, BCDPR, CDFLT, CDICEN, | 
| statement | |CDIMAT, DCIDPR, INTLZE, POSTPR, | 
| | |SELMSK, STRPR | 
}----------------------------------- +-~------------- %----------------------------------- 1 
|Іпі%іа112ев each identifier | INTLZE | DCIDPR | 
| declared | | | 
= «м» ua «ке» au «шие «ғы» m «әке» «кл» «лы» «шы» «ше» ama oe «к» quam ee ED oe «ки» «кы» ee ee oe ge «ме» «ке» «к» «кы» I----------- +-----------------------------------1 
|Processes factor brackets and level|DCIDPR | TEMSCN, BCDPR | 
| numbers | | | 
~----------------------------------}----------- Іі-----------------------------------1 
|5сапв for next level number | TEMSCN | CDATPR | 
І----------------------------------- ---------- І----------------------------------- 1 
{Processes BCD of identifier | BCDPR |BCDISB, CHASH, SELMSK | 
-----------------------------------1----------- 3-----------------------------------1 
|Навһев BCD of identifier | CHASH | None | 
-----------------------------------1----------- %-----------------------------------1 
|5сапв list of attributes following |ATLSCN | CDATPR | 
| identifier | | | 
-----------------------------------4----------- %----------------------------------- 1 
|Applies factored attributes | CDFATT | CDATPR | 
~----------------------------------}----------- 1-----------------------------------і 
{Applies implicit attribute | IMPATT | None | 
дыш acta Sq ce даталы ы Шаа тыны І-----------------------------------41 
[Attributes controlling routine | CDATPR |СРАТВО, CDAT41, CDAT42, CDAT43, | 
| {CDAT44, CDAT45, CDAT48, CDAT49, | 

| | |CDATUA, CDAT4B, CDAT4&C, CDAT4D, | 
| | |CDATUF, CDAT54, CDAT55, CDAT56, | 
| | |CDAT57, CDAT58, CDAT59, CDAT60, | 
| | |CDAT61, CDAT62, CDAT63, CDAT64, | 
| | |СОАТ69, CDAT6A, CDATB4&, CDATB8 | 
ЕНИР I EPE es ee ВЕЕ БЕР Жаа oe en tu a аі асы ee аа за саса ылас сы. 1 
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Table EL1. 


Routine/Subroutine | 


ПЕТ 
карыз 
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MT 
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КЕНГЕ 
а 
РТИ 
(арата? 
[ерде 
canes 
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ет 
cre 
Ichases 
conga 
ке 


|СОАТ6А 
L 


Į Scans the 


Phase EL Routine/Subroutine Directory 
proe lr acc с зене aque аске а ад на аны ee iA 1 
| 


list of attributes following 


|Checks for multiple declarations, etc. 


| Processes 


| Processes 


| Processes 


| 
{Attribute 
| 


| Processes 


| Processes 


| Processes 


| Processes 


| Processes 


| Processes 


| Processes 


| Processes 


| Processes 


| Processes 


| Processes 


| Processes 


| Processes 


| Processes 


] Processes 


| 


|Рсосеввев 


| Processes 


| Processes 


| Processes 


| Processes 


| Processes 


| Processes 


| Processes 


| Processes 


| Processes 


| Processes 


BCD of identifier. 
SECONDARY attribute. 
POS attribute. 
controlling routine. 
DECIMAL attribute. 
BINARY attribute. 
FLOAT attribute. 
FIXED attribute. 
REAL attribute. 
COMPLEX attribute. 
VARYING attribute. 
PICTURE attribute. 
BIT attribute. 
CHARACTER attribute. 
FIXED DIMENSIONS attribute. 


LABEL attribute. 


ADJUSTABLE DIMENSIONS attribute. 


ABNORMAL attribute. 
NORMAL attribute. 
USES attribute. 

SETS attribute. 
ENTRY attribute. 
GENERIC attribute. 
EXTERNAL attribute. 
INTERNAL attribute. 
AUTOMATIC attribute. 
STATIC attribute. 
CONTROLLED attribute. 
INITIAL attribute. 


LIKE attribute. 
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the identifier. 


hese mam e «лм» жөке sen лалы» «ешек» UM ————«'"'UO!!!:-2"-"-"""!"!"")'"O"——————————— айтты A SN SN жабыға SNS GES GO ыыр лоты» GEN GN GE «ыы» EE «әке өсекке SS «есе» «еш» SS Se SS ce еке eS eee жәме» 


Table Е. 


Phase EL Routine/Subroutine Directory (cont'd) 
> = 
| 


Routine/Subroutine| Function 


— — «шә «ле — À «әле — am — re — — «ле» «ша ee «ке» фа «әже «але «қы» ae ee «лы» «ла» «лк qu «лы» «аю» яш = — «ке» ee «жа» «кие «ши» «ке» «ле «из we «жы» ew uo «и» «ке» qm «әже «шем «и» wn «кк» a rw өш» «ши» «жа» ew «ғи» 


|CDAT6B (EK) 
| CDCLSC 
ee (EM) 
for (EM) 
ЕЯ (ЕМ) 
е (ЕМ) 
|CHASH (EM) 
ei 
on 
ЕТКЕ (ЕК) 


| 
|IMPATT (EM) 


{Applies implicit attributes. 
TE |Performs initialization for each identifier declared. 
КОБОЕ ЕЕЕ рК eerie. 
сд (ЕМ) een: chain of DECLARE statements. 
(ерімен |Selects correct test mask to be initialized. 
TS кесте баз inheriting of dimensions іп structures. 
ТЕКСІ [scans ahead for next level number. 


|Processes DEFINED ATTRIBUTE. 
| 


|Scans each item of DECLARE statement. 


| 
|Applies factored attributes. 
| 


|Applies default attributes. 
| 


|Constructs dictionary entry. 


|Performs phase initialization and scans chain of DECLARE 


| 
|Hashes BCD of identifier. 
| 


|Маіп scan routine. 


|Processes factor brackets and level numbers. 


|Initializes and passes control to Module EM. 


Statements. 


hm Ш жәе жам» ыыы a алам» h— s SS a «еке» шыны — a тылы» — «ее ee — — „шн өне» I o d 
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Table EP. Phase EP Dictionary Entry III and Call 


T 
|Main Processing 
| Statement or Operation Type | Routine 


Ө ce «а» — —— «әле ce өше «ке» еше M «ке — —— «ы «ме —— — «ме cS cee «ке Se — «т» es See ee «ке «ме Qo «ме — — — «м» ыз ee ee 


|5сапв for PROCEDURE entries type 1 |ENTRY3 


шы oe са ee ee a eee ашқалы салы 
|Follows chain of ENTRY statement | EPL40 
|entry type 1 entries from a PROCE- | 

|DURE entry type 1 221 
ГҺ-----------------------------------4----------- 


|Examines all labels belonging to:an|LBPROC 
jentry type 1, constructing an entry| 
|type 3, if necessary | 


| 
|Follows CALL chain in text making |EPL290 
[dictionary entries for entry points| 


|Examines the first character of an |CDIMAT 
|identifier and sets a flag indicat-| 
ling the range in which it lies | 


ce н өсе» ree ee a «әле» "P «ла» «ши» «ли» «әне a ино «ә ee «әш» «ки» «мы» «ғы» «м» ae c um «ме» ree өне «ши» «қа pem me ams ee ye ape ee a ee ee ee ee ee ---. 


ce «== х= ee ee e a «кес ee «ли» «ла» «ше» «лы» ee «ы» 


k 
|Sets address slot to zero or the | FNDEND 
| end of the dictionary | 


рашае 


| Constructs list of numbers of known|BLDST2 
| blocks | 


[Built in function name | SCANBF 
L 


Кыш ИЕ eo ie So ИЕ ЕР ЕЕ ЕЕ НЕСИНЕ ai Len eee 
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feo АИ ОК АРАБ ol 
| Subroutines Used | 
— ЕРЕВАН АЕ ЕЕ БР ЕСЕНИН 
| None | 
fan rn ere ere en ene 1 
| None | 
| | 
| | 
+-——----------—---------------------- 1 
| None | 
| | 
| | 
[SSeS SSeS es Sa See eidem 1 
| None | 
| | 
tS SS See = шшш л cepere ee 1 
| None | 
| | 
| | 
Sage ca a кіс ан ейік ышы 4 
| None | 
О cca о ск ы 1 
| None | 
| | 
Poses eS Se Se ыс eee ae 1 
| None | 
а 1 
| None | 
| | 
ae a aaa a a a діс Ee 1 
| None | 
| | 
нео 4 
| None | 
ye ace е cee НЕЕ ЛЕКЕТКЕ a Oe AE 1 


Table ЕРІ. 


Phase EP Routine/Subroutine Directory 


|Routine/Subroutine| | "ее BEEN | 
ше: о т | 
eters ane dictionary entry. | 
Те |Sets flag for default routine. | 
Iis POM default rules. | 
fee |Calculates offset in hash table for given BCD. | 
NE Scania ENTRY chain for PROCEDURE statements. | 
TE |First entry in entry type 1 chain. | 
a PER ENTRY chain for ENTRY statements type 1. | 
Б” АРЕН point from LBPROC routine. | 
ШЕЛІ на new entry label. | 
ере ата CALL chain. 
ЕТІ |Searches built-in function table for BCD of identifier. | 
rote | танка out BCD in text. | 
ГЕН Jee the CALL chain. | 
а m address slot for label. 
m ЕЕ labels of PROCEDURE or ENTRY statements. | 
I. |Initialization of phase. | 
НЕЕ |Marks later modules as 'wanted' or *not wanted’. | 
|5САНВЕ [Checks for built-in function name. | 
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Table EW. 


Phase EW Dictionary LIKE 


ee ge Oe [Main ргосеѕзіњдј | 
| Statement or Operation Type | Routine | Subroutines Used | 
iau num cuin s °° 707 [квн о [EWCOPY, EWELDM, EWINCH, EWONDM | 
idpdates Hash chain for now еле - |EMHSEN  — . I a DC QM EE | 
[calculates start of structure data |EWVART | > Ч | 
| Ғсоп start of variable information | | | 
[Changes error entry to base element|EWCHEN = jug. ттк неске иын | 
[Copies dimension table entry and |EW2FNT |EHNWBK 000000000000 | 
|second file statement | | | 
TEE et eee салы оша ық ыды Жа асасы олынан T EEE шы шнын еы M — E ыды J 
Table EW1. Phase EW Routine/Subroutine Directory 

|Routine/Subroutine|] ^ Fencion S | 
СТИ [Scans dictionary to find entry corresponding to BCD in text. О", | 
ТЕРИН РУСЕ LIKE chain. | 
ЕЕЕ lenang error entry to base element. | 
еее fee dictionary entry into scratch storage. | 
ЖҮНІ ose entry into scratch storage with dimension data removed. | 
жа coe whether the likened structure is dimensioned. | 
ШЕТІНЕ TEC transfer of control to next phase. | 
D SHE TN erroneously "likened" major structure. | 
Те (EX) |Updates hash chain for new entry. | 
Ни |Completes entry сору and places it in dictionary. | 
еее ae whether original structure is dimensioned. | 
Рене ТҮЗГЕН new dictionary block and terminates current опе in use. | 
БЕГІН ЖЕМЕЙ entry into scratch storage, inserting dimension information. | 
ЖО ерген dimension information in original structure. | 
| EWSTRT е validity of likened structure. | 
ГЕН2ЕНЕ [copies second file statement and associated dictionary reference. | 
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Table EY. Phase EY Dictionary ALLOCATE 


CS Seay N hey a ee ge re КЫЙКЫ БАСА Be ee eae кр нду и ай а 
[Main Processing | 


| Statement or Operation Type | Routine | Subroutines Used | 
----------------------------------- І---------------1-----------------------------------1 
[second file pointers. Scans ALLO- |IEMEY | ATPROC, DICBLD, HASH, STRCPY | 
| САТЕ statements | | | 
PP eins oes Rte eas еее ления есет eer Pe oe a ae LEE C DLE 1 
[Completes copied dictionary entry  |ATPROC with | MOVEST | 
|for an allocated item [second entry | | 
| |point ATPROD | | 
-----------------------------------і-------------- І-----------------------------------4 
[Controls ATPROC and ATPROD routines|STRCPY | ATPROC, ATPROD | 
1595 each member of a structure | | | 
—— а EA a aa ER И Ma a ea a ea peg P hs aD 
Table EY1. Phase EY Routine/Subroutine Directory 
——————— ——— ——————————————— EEE TERRENOS 3 
|Routine/Subroutine] Function | 
cR ee қы ысын сы лы дс ee ek E eee —— HÀ 1 
|ATPROC/ATPROD (EZ) |Complete copied dictionary entry for allocated item by including | 
| lattributes from ALLOCATE and second file statements. | 
| | 
| DICBLD |Collects attribute given for an identifier and copies its dictionary | 
| jentry. | 
| | l 
|EY16 | Processes ALLOCATE statements. | 
| | | 
| EY17 |Processes identifier in ALLOCATE statement. | 
| | | 
| EY21 |Processes major structures. | 
| | | 
| HASH |Навһев BCD of identifier to obtain its dictionary reference. | 
| | | 
| ТЕМЕҮ |5сапз second file, reverses pointers. Scans ALLOCATE statements. | 
| | | 
|MOVEST (EZ) |Соріев second file statement and associated dictionary entry. | 
| | | 
| STRCPY CURE ATPROC and ATPROD for each member of structure. | 
E oO Ep PP IR ee i талы ы лылы J 
Table FA. Phase FA Dictionary Context 
aa И aaa a mm qu a aR ra aa a 1 
|Main Processing| | 
| Statement or Operation Type | Routine | Subroutines Used | 
----------------------------------- І---------------1-----------------------------------4 
{Scans text | CE30 |CENDTS, CETRAN | 
----------------------------------- І---------------і4-----------------------------------4 
|Reorders subscripts; makes dic- | CEID | CESCN | 
|tionary entry for file and event | | | 
| variables | | | 
0 -—-------------- ———— = { 
|Identifies keywords | CEKYWD |CEKEND, CEKEOB, CEKEOP, CEKON, | 
| | |CEKPRC, CEKSND | 
І----------------------------------- І---------------І----------------------------------- 1 
|5сапв dictionary |СЕ5СМ |СЕ5ТОС, СЕҮЕ5, CFPDER, CFPDR2, | 
| | |CHASH, CE3XX | 
----------------------------------- %---------------4-----------------------------------1 
|Makes dictionary entry for varia- |CFPDR2 |CDFLT, CDICEN, CDIMAT, CEONCK | 
| bles | | | 
----------------------------------- Іі-------------- І----------------------------------- 1 
|5сапв dictionary entry for con- | CECON | CHASH | 
{stants and makes new entry, if | | | 
| necessary. | | | 
р Е ан тасты ERR ЕК ee E аваынтене к арын | 
[Scans PICTURE chain entry and makes|CEPICT | None | 
| пем entry, if necessary. | | | 
a ce cs a АИА ЗЕЕ ВЕРЕ ИНТРО Ы hc ШЕ а Елла лылы ы алабына зан Se ee LO LU. 1 
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Table FA1. Phase FA Routine/Subroutine Directory 


|Routine/Subroutine| ^ Function | 
[рт SSS сана аа. | 
ЛОО. кеа default dictionary entry for identifier. | 
TS |Determines default scale for identifier. | 
oe кезде point for zero or blank. | 
|СЕСОМ (FB) сы dictionary entry for constants. | 
ЕН ЖӨНІНЕН prime text marker. | 
idem |Reorders subscripts and makes dictionary entries for files and event] 
| | variables. | 
КОС алабын point for constant routine. | 
1651808 ranted point for iSUB. 
ЕСЕР |Transfer point for CALL to get over chain. | 
кенен AMET SN from DECLARE statements. | 
IGERERD ос ЕМО Кеумога. | 
| eckgdE НОЕ end-of-block marker. | 
| eka TE end-of-program marker, or start of second file. | 
aes {Transfer point for keyword. | 
oe [Transfer point for iterative DO. | 
jee И ON keyword. | 
T CERDA [сенен point for picture; format item. | 
‘capers [o MR PROCEDURE . keyword. | 
ore Nieves SN, etc., to output stream. | 
| CERGND а start of second file statement. 
СЕЕ р РЕТТИ keywords. | 
| вір Е point for left parenthesis. i 
Е JEnd of text block in output file routine. | 
ИТТЕ images entry for programmer-named ON condition. | 
oe КЕН dictionary entry for variables. | 
foe (FB) me picture chain entry. | 
ене |Transfer point for right parenthesis. | 
т {Scans dictionary. | 
веер Ж semicolon. | 
йди [Points at next entry in structure chain. | 


124 


Table FA1. Phase ҒА Routine/Subroutine Directory (cont'd) 
Трак ынс ин ө раны ЖЕ ЕЗ Se re ee ee а 1 
| Routine/Subroutine | Function | 
дамыды M EUST RUMOR I ы EU m а НОВ ЕЕ EEA he ЫШЫ ee eee 1 
| CETRAN | Translates keyword into transfer instruction. | 
| | | 
| CEYES |Compares structure levels. | 
| | | 
| CE2L [Transfer point for second level marker. | 
| | 
| CE30 [Controlling scan of text. | 
| | | 
| CE31 |Tests for end of block. | 
| | | 
| CE32 |Moves one byte to output stream. | 
| | 
|СЕЗ00 {Switches to appropriate routine. | 
| | | 
|СЕЗХХ |Compares identifier in text with entry in dictionary. | 
| | 
|CFPDER (FB) |Makes dictionary entry for ordinary identifier. | 
| | 
|СЕРОЕ2 (ЕВ) |Makes dictionary for formal parameter. | 
| | | 
| CHASH |Hashes identifier. | 
| | | 
| CHASHC |Hashes constant. | 
| | 
| IEMFA |Initializes phase. | 
[2 ccce en eee PD —————————————————— P e J 

Table FE. Phase FE Dictionary BCD to Dictionary Reference 
posco m cree UU UT Ma es or ge Oe een I D M асе ы mecnm POP 1 
|Main Processing| | 
| Statement or Operation Type | Routine | Subroutines Used | 
}----------------------------------- %--------------- І-------------------------------- ---4 
|Scans text |СЕЗ0 |CENDTS, CETRAN | 
----------------------------------- 4------------“--4-----------------------------------1 
[Scans dictionary | CESCN |CESTUC, CEYES, CFPDER, CFPDR2, | 
| | |СНА5Н, СЕЗХХ | 
}--~-------------------------------- —  —— X — ——— 1 
{Checks for array, function, or | CELP | CEFNCT | 
|pseudo-variable if left parenthesis| | | 
jis found | | | 
----------------------------------- І---------------4-----------------------------------1 
|Tests for end of text block | CENDTS |CEKEND, CEKIDO, CEKPRC | 
----------------------------------- 4---------------1-----------------------------------і1 
|Identifies keywords | CEKYWD | CEKEOB, CEKEOP | 
----------------------------------- %---------------1-----------------------------------41 
{Makes dictionary entry jNone |CDFLT, CDICEN, CDIMAT | 
bee -————ee(————— CÓ Ello tc e EIE Pe Be а Асы са ipe. 1 
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Table ҒЕ1. Phase FE Routine/Subroutine Directory 

|Routine/Subroutine| шыта 000000000000 | 
eorr nea ee C | 
З РЕЯ dictionary entry. | 
foe Жей flag for default routine. | 
ee ТЕН validity of function reference in text. | 
ее ақы асшы END keyword. | 
В DOMOS end-of-block marker. | 
IE t end-of-program marker, or start of second file. | 
CERTA ЕСЕМДІ iterative DO keyword. | 
oirne REN PROCEDURE keyword. | 
fore | Identifies keyword. | 
дылы БҮ for array, function, or pseudo-variable if left parenthesis | 
| Jis found. | 
te CENDTS [ee for end of text block in output file. | 
" CESCN IN dictionary. | 
foe ЕЯ at next entry in structure chain. | 
ON € keyword into transfer instruction | 
RS |Compares structure levels. | 
ПЕ [Controlling scan of text. | 
pud T identifier in text with dictionary entry. | 
БАН (FF) |Makes dictionary entry. | 
mom ТЕ dictionary entry for statement with ordinary identifiers. 
[БЕЗЕ |Makes dictionary entry for formal parameters. | 
|свавн Le асса offset in hash table for given BCD. | 
Table FI. Phase FI Dictionary Checking 

ix Cd ICQ C QD EA ee нде ace eee О Se METUO ee 1 


| Statement or Operation Type | 


— — —— оо «же «ке» re ep Qa ee «кек rn «шы» we фо ee — «кие «кк» шз «е» we we «ше 
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|Main Processing| 
Routine 
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Subroutines Used 


CEKEOB, CEKEOP, CEKIDO, CEKSN 
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Table ҒІ1. 


г------------- 
| Routine/Subroutine 
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ІСЕСМВК 
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| CEDDOL 
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eon 
ЕЕ 
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T 
TS 

| CEGOTO 
poor 
БЕТОН 
ТЯ 
eee 
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БЕКЕ 
еве Spb 


| 
| CEKON 


| CEKSN 


| 
| CELRCT/CERPCT 


ЕРЕ 
ee 
| era 
fre) 


| CESTRT 
L 
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Phase FI Routine/Subroutine Directory 
жыла re ac lar ie ep асыла ee ee ee ee ae ote a es ағы 1 


Function 


|Tests value of previous second level marker. 


|Processes function names used as control variables for DO 


|Processes end of iterative DO groups. 


|Tests whether dictionary reference needs to be checked. 


| 
|Checks data list items for validity. 


|Спескв file references. 


| Processes function markers. 


| 
|Converts GOTO to GOOB, if necessary. 


|Checks GOTO statement references. 


| Processes iSUBs. 


|Bumps scan pointer over dictionary reference. 


|Processes END statements. 


|Processes end-of-block marker. 


|Processes end-of-program marker. 


|Identifies keywords. 


[Processes iterative DO keyword. 


| Processes ON statements. 


| Processes statement number. 


| Process left and right parentheses. 


| 
|Checks validity of keywords in the text. 


| 
|Processes PROCEDURE and BEGIN statements. 


|Processes remote format references. 


| 


| Processes semicolons. 


[Controlling scan of text. 


groups. 
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Table FK. 


Phase FK Dictionary Attribute 


О ааа reg a ee DAC ge N Pee a eee a et Че NE тан ee) peer es Pal И Tae pe ee ep 1 


|Main Processing] 


| Statement or Operation Type | Routine | Subroutines Used | 
[scans attributes area for SETS ОА SS | NM D ы ының | 
jlists | | і 
----------------------------------- І---------------1-----------------------------------1 
|5сапв SETS list | FO2 | None | 
----------------------------------- І---------------І-----------------------------------1 
|Processes constants | CONPRO | None | 
[Processes identifiers po [сєвсн SE [CESTUC, CEXXX, CHASE ee | 
Table ЕК1. Phase ЕК Routine/Subroutine Directory 

[Routine/Subroutine| ^ Function нн ME 
[CEIDLP 00 Dou eae анны ыны | 
ТЕН НЕЕ unqualified name. | 
Ж а identifier | 
аван |Ғіп4в address of next structure in chain. | 
eee РЕЗО current BCD with BCD in hash chain. | 
ан een aes offset in hash table for given BCD. | 
| CHEERS |Provides terminal error action. | 
oo нее constant іп ordered stack. | 
re ОЕ constants. | 
pore БЕРМЕН control. | 
БЕ T CO constant greater than 255. | 
ЖЕН eases attribute tidy-up area. | 
|205 TO. SETS list. | 
PEG КЕТЕ SETS dictionary entry. | 
о орга е scratch storage. | 
алы a cs ——  — M— —— — —— —— ыы ысы cg ына 4 
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Table FO. Phase FO Dictionary ON 


Le i ee a ee ee ee qu Du e medetur ne Re ge T T edes 
| |Маіп Processing | | 
| Statement or Operation Type | Routine | Subroutines Used | 
}----------------------------------- +--------------- }----------------------------------- 1 
|5сапв input text for ON, SIGNAL, | FKMVIT |BEFTRN, CENDTS, ОР | 
|ап4 REVERT statements | | | 
|----------------------------------- %------------- --4---------- ----------- --------------4 
|Моуев second file from input text |F2 |CENDTS, BEFTRN | 
| block to output text block | | | 
----------------------------------- %---------------4-----------------------------------41 
|Makes dictionary entries for ON- | FKDCEN | LABCD | 
{conditions found in ON, SIGNAL, and| | | 
| REVERT statements | | | 
}----------------------------------- }--------------- }------------------------------ -----4 
{Examines BCD of file entries ref- |MVSIG | CENDTS | 
|егепсей in ON, SIGNAL, and REVERT | | | 
|statements; scans previous entries | | | 
| ок ON conditions | | | 
}--~~------------------------------- }--------------- 4----------------------------------- 1 
| Processes CHECK and NOCHECK list. | BEFCHL |CENDTS, LABCD | 
Һ----------------------------------- %--------------- %----------------------------------- 1 
|Creates dictionary entries for | NOMOVE | QP | 
[condition prefixes | | | 
Ua ce ИСР re heen eee Быыс ақ ies шы ш ————————————————ES 1 
Table FO1. Phase FO Routine/Subroutine Directory 
(Soe fee ee и 1 
| Routine/Subroutine | Function | 
——— — —— «қы» «кке ee — ee аш» «Аш» кек «и — Ғ--------------------------------------------------------------------4 
| BEFCHL |Processes CHECK and NOCHECK list. | 
| | 
| BEFTRN [Replaces statements containing dummy dictionary references by error | 
| ]|statements, and generates error message. | 
| | 
| CENDTS |Requests a new text block for output. | 
| | | 
| FKDCEN |Makes dictionary entries for ON conditions found іп ON, SIGNAL, and | 
| | REVERT statements. | 
| | | 
| FKMVIT |Scans input text for ON, SIGNAL, and REVERT statements. | 
| | | 
| FKNOCK {Processes CHECK and NOCHECK lists. | 
| | | 
| FKPROC | 5сапѕ input text for ON, SIGNAL, and REVERT statements. | 
| | | 
|ЕР010 (ЕР) |Chains initial label statements and makes second file dictionary | 
| Jentries for each label array initialized in this way. | 
| | | 
| F2 {Moves second file from input text block to output text block. | 
| | | 
| LABCD |Creates a dictionary entry for each label constant and each entry | 
| |1аре1 mentioned in a CHECK list. | 
| | | 
| MVSIG |Ехапіпев BCD of file entries referenced іп ON, SIGNAL, and REVERT | 
| |statements; scans previous entries for ON conditions. | 
| | 
| МОМОУЕ (FP) |Creates dictionary entry for condition prefix. | 
| | | 
103 |Processes condition prefixes changed in current block. | 
| | | 
| ОР |Determines which condition prefixes require dictionary entries. | 
| | | 
{R8 |Moves statement to output buffer. | 
Базасы уа на сз ышы M as lt ылыш ыш КЕК ac So ee ДЫ J 
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Table FQ. Phase ЕО Dictionary Picture Processor 


pA T TUM E UTI улада a ner аЙ қ Mn D ED te ee EU ананы EL а ---1 
| |Main Ргосеввіп( | | 


| Statement or Operation Туре | Routine 
оо осо ош саш чш 
jinitializes | 
ce eG т> V URINE 
2 qu eee UM 
2007777 pns 
| оош ы e 
blu ou Uem [су 
luu uu nS (Бирн де 
ic qp c ITE [сот 
Т... lee 
НЕ ur т ipe 
СЕ ees 
о ae 
боо eee ЕЕЕ pem 
5522. 2-2 
cece eee а НЫН |с 
|| p uc por o ЧЫ pem 
52222 727: 
| factor | 

eee D а M Ep nM ee o o UD MERCI E IR + 
| поет. cant |ы 
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—— — — wae we -- 


— —— — «е ee «лме «ке» p — 


Subroutines Used | 


[CYEK, сута, ситан: сееп | 
ji DOE SU DUST 1 
lm а аны ас ы чына | 
гии ПКЕЕ | 
ico. аа ЕС | 
Б 
ао CM EE 1 
lune DOES ЖаШ СА АЫ pres | 
С кн et нанынан а i 
aaa ВЫ | 
ПСС | 
ыы | 
ТИМЕ | 
оу ааа а анын | 
CI CLE | 
М | 
forcon 7 С | 
СЕЕ 1 
У "————— —— —— es CET MR mese cn d 


Table FQ1. Phase FQ Rautine/Subroutine Directory 

[Routine/Subroutine] Funcion | 
|cYaST 0000 uiu d c iui i | 
ун |Identifies picture character. | 
nee |Controlling scan of PICTURE chain. | 
ае ЕТА integer constant to scale factor. | 
oe PR picture characters slash (/), comma(,), point (.), and B. | 
12441: M picture characters CR, DB. | 
зеді |Adjusts data to terminate picture before illegal character. | 
12,594 ЕТЕП integer constant to scale factor. | 
m TA picture character E. | 
ee {Completes entry for correct picture. | 
anne tered control at end of picture chain. | 
= одне picture character Г. | 
НІН ЕРТЕН code for next character іп picture. | 
ж {Calculates scale factor. | 
eae Ееее picture character 6. | 
Ion Е picture character К. | 
TTE. TEAM picture character 9. | 
| CYOTT {Processes picture characters 1,2,3. | 
lors (даланы picture character P. | 
| cvs ЕН picture characters 5, 5, +, -. | 
ovde аа picture characters 6,7. | 
ЕЕ eee picture characters 8,H. | 
ўы ЕЗЕРА picture character М. | 
even {Соде table for picture characters. | 
a | Processes picture character V. | 
суу ВЕНЕ picture character У. | 
112 [Processes picture character 2. | 
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Table FT. Phase FT Dictionary Scan 
——M———— eee ЕВА 


| Statement or Operation Type 
{Scans second file 


—— — — — — — — — we «ке — «ән «ке «ме ---- — --- ee — чн a ee ee ee «-- «-- «ше «ме «кə — — 


|5сапв dictionary 


— — — «е — — «ым Qe «қыз — — «е e «не» «ғи» «же «ки» «ға» ee «мә ee ee «ше «ке» «ке ee «әже — «ше 


|Event or label variables 


Е----------------------------------- 
[Dimension attributes 


о ee a + “--- ә ------.-------- 
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| Structures 
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{oo eee ee ie ee ee ie ae 1 
|Main Processing | | 
| Routine | Subroutines Used | 
--------------- %-----------------------------------і 
[АС1 {опе | 
}--------------- }----------------------------------- 1 
|ІВ1 | None | 
--------------- І-----------------------------------1 
| DATVAR | None | 
кене Dee ee eee ae He сыш ш Se a ee eee eee 1 
| EVLABV | None | 
і--------------- 4----------------------------------- 1 
| FO | None | 
}--------------- %----------------------------------- 1 
|62 |None | 
І--------------- 3----------------------------------- 1 
|63 | None | 
І--------------- 4----------------------------------- 1 
| GE1 | None | 
і--------------- 1----------------------------------- 1 
|Р1А | None | 
ł-----------——-— }-----------------------------------4 
| QA4 | None | 
Іі--------------- %----------------------------------- 4 
| QA3 | PROPIC | 
І--------------- %----------------------------------- 1 
| QA2 | None | 
}--------------- 4----------------------------------- 1 
{9X | None | 
4--------------- 1----------------------------------- 1 
| OAL | PROPIC | 
}~-------------- 3----------------------------------- 1 
| CONST | None | 
і--------------- І----------------------------------- 1 
| STRUCT |AJDMRT, MKDMTB, MVTXT | 
Pe ser oscila ec Кыш е ышы ш шыш шышы ик кте к KNEE 1 


Table FT1. Phase FT Routine/Subroutine Directory 


posee EU TEE т. 1 
| Routine/Subroutine| Function | 
------------------ — —— —— еееанннн-------- 1 
[АСТ |Scans second file. 

| ^C2 |Detects second file statement marker. 

| | 

| АЕЗ |Points relevant dictionary entry at statement. 

| | 

| AJDMRT |Modifies second file statements to initialize dope vectors for base 


| |lelements, rather than for the containing structures. 


| 
| 
| 
| 
| 
| 
| 
| | 
| B1 [Scans dictionary. | 
| | { 
| BIA |Initializes dictionary scan. | 
| | | 
| CONST | Processes constants. | 
| | | 
| DATVAR | Processes data variables. | 
| | | 
| EVLABV | Processes event or label variables. | 
| | | 
| FO |Processes dimension attributes. | 
| | | 
| FULIN |Moves initial label statement to the second file, collecting togeth- | 
1 ler all statements for the same array. | 
| | | 
| GE1 |5сапв CONTROLLED chain. | 
| | | 
162 {Scans AUTOMATIC chain. | 
| | | 
163 |5сапв STATIC chain. | 
| | | 
| MKDMTB |Creates dimension tables. | 
| | | 
| MVTXT | Моуеѕ text blocks. | 
| | 
| PROPIC |Extracts precision data from picture tables. | 
| | | 
| P1A |Sets 'dope vector required' bit. | 
| | | 
| QA1 |Processes ENTRY type 5 and 6 entries. | 
| | | 
ОА2 Processes ENTRY type 3 entries. | 
| j | 

| 
| ОАЗ |Рсосеввев ENTRY type 2 entries. | 
| | | 
| QA4 |Processes ENTRY type 1 entries. | 
| | | 
19Х | Processes ENTRY type 4 entries. | 
| | | 
| STRUCT | Processes structures. | 
| | | 
| TRVECT |Transfer vector for appropriate chaining routine. | 
НИЕ eS Dec cc TP ETE а отыры ыдысы J 
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Table FV. Phase FV Dictionary Second File Merge 


pee ee ee eo К БН ЕЛШЕ УННЕР Ne С Tec EQ e 1 
|Main Processing] | 
| Statement or Operation Type | Routine | Subroutines Used | 
----------------------------------- %---------------4-----------------------------------41 
|Reverses second file pointers; | IEMFV |DATCPY, DEFMOV, DEFTST, F2MOVE, | 
[scans text for block heading state-| | MOVE | 
|ments; allocates statements and | | | 
{references to dynamically defined | | | 
| data | | | 
----------------------------------- І--------------- І----------------------------------- 4 
|Examines ADF references in second |DEFCOM | None | 
|file; completes defined item dic- | | | 
|tionary entry | | | 
-----------------------------------і--------------- "—  —— 
|Detects dictionary references which|DEFTST | None | 
|refer to dynamically defined data | | | 
таа м 1 
|Examines dictionary references and |DATCPY | F2MOVE, MOVE | 
|moves any associated second file | | | 
|Statements to the output string | | | 
re iliac a aaa ca ia S eg Жобада шы ce ot or ОАЕ a ot еы ыык EE EEE ОЛРРФЬРЦЕІ J 
Table FV1. Phase FV Routine/Subroutine Directory 
pvc cM qoe cese IIT TIE Hc IE me 1 
| Routine/Subroutine | Function | 
}-----~------------ %-------------------------------------------------------------------- 1 
| DATCPY |Moves second file statements associated with dictionary reference to| 
| joutput string. | 
| | 
|DEFCOM (FW) |Examines ADF references in second file; completes defined item dic- | 
| [tionary entry. | 
| | | 
| DEFMOV {Modifies text references to dynamically defined data. | 
| | 
| DEFTST |Detects dictionary references which refer to dynamically defined | 
| | data. | 
| | ‚ , | | 
| FVO |5сапв second file reversing pointers. | 
| | | 
| FV9 |Initializes text scan. | 
| | | 
| FV10 |5сапв text. | 
| | | 
| ЕУ16 [Releases control. | 
| | | 
| FV18 |Processes ALLOCATE statements. | 
| | | 
| ЕУ19 | Processes PROCEDURE statements. | 
| | | 
| FV20 |Processes BEGIN statements. | 
| | | 
| FV34 [Scans AUTOMATIC chain. | 
| | | 
| F2MOVE |Moves second file statement to output string. | 
| | 
| LEMFV {Controlling scan of second file; invokes processing routines. | 
| | | 
| MOVE |Moves text from input string to output string. | 
ee ae eee a a i Nd cp аа ы С A N ЕНИР ИРИСИ 1 
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Table FX. Phase FX Dictionary Attributes and Cross Reference 


о о ee a or en терас ee ae Tr ca a a aaa И аиа аа ааа наа ак 1 
Тмаїп Processing | | 

| Statement or Operation Type | Routine | Subroutines Used | 
-----------------------------------і-------------- І----------------------------------1 
|5сапв STATIC chain for all items | FX0000 | FX0010 | 
Mc RU DDR лас сым a айсы ы сла ыды POS 1 
|5сапв PROCEDURE-BEGIN chain | FX0100 |FX0010, FX0101, FX0105, FX0120 | 
}----------------------------------- І---------------І----------------------------------- 1 
{Scans CONTROLLED chain for non- | FX0170 | None | 
|parameter DECLARED, CONTROLLED | | | 
|dictionary entries | | | 
------------------------------------ і---------- І----------------------------------- 1 
|5сапв parameter list from PROCEDURE|FX0101 | FX0010 | 
|and ENTRY statements | | | 
----------------------------------- і----------- І-------------- --------------------- 1 
|Sorts BCD of variables and creates |FX0010 | None | 
Jentries in scratch text storage | | | 
------------------------------------ і----------- І----------------------------------- 1 
|5сапв circular chain of ENTRY | ҒХ0105 | FX0101 | 
[statement dictionary entries asso- | | | 
|ciated with a particular PROCEDURE | | | 
| statement | | | 
----------------------------------- 41----------- І----------------------------------- 1 
|5сапв AUTOMATIC chain associated | FX0120 |FX0010 | 
jwith particular PROCEDURE or BEGIN | | | 
| block | | | 
duca т? poc НЕ Е Ao EI C ee 1 
[Prints heading line for tables | FXHD | ATTMOV | 
jaccording to options specified | | | 
----------------------------------- І---------------4-----------------------------------4 
|Scans sorted chain of identifiers  |FXPRNT |ЕХ0299 | 
----------------------------------- %---------------1-----------------------------------і 
{Determines attributes of a given | FX0299 | ATTMOV, FXDCLN, FXEND, 1 
lidentifier if the ATR option is | | REFMOV | 
| specified | | | 
------ БЭ—жмы— ан пн 
|5сапв the chain of references for a|REFMOV | FXDCLN | 
|given identifier (if XREF is | | | 
|specified) and prints them in | | | 
|ехсегпаі decimal form | | | 
І----------------------------------- 1----------- І---------------------------------- 1 
{Converts EBCDIC of particular | ATTMOV | None | 
lattribute to required external form| | | 
[ап moves it to print area | | | 
----------------------------------- %---------------1-----------------------------------1 
|Prints BCD of identifier having | FXBCD | None | 
| converted it from internal form to | | | 
jexternal form | | | 
----------------------------------- -------- 4----------------------------------- 1 
|Converts an internal binary number |FXDCLN | None | 
[Со external decimal form and moves | | | 
jit to print buffer | | | 
------------------ ------------------ %----------- %----------------------------------- 1 
|Frees all scratch text storage and |FXEND | None | 
Ioel eanes control to next phase | | | 
Sette pe Mc M ыда алас шысы P ——— ЕН ——————— ————— "—— PEE 
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Table ЕХ1. 


|ATTMOV (FY) 


|FXBCD (FY) 


| 
|FXDCLN (FY) 


|FXEND (FY) 


|FXHD (FY) 


|FXPRNT (FY) 


| 
| FX0000 


| FX0010 


| FX0030 


| FX0100 


| FX0101 


| FX0105 
FX0120 
FX0170 


FX0250 


FX0299 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
|REFMOV (FY) 
| 


Phase ЕХ Routine/Subroutine Directory 


r <> «м» «шә «е» «и» «иә oe «ке» шш» мд ee ee — — —— qIm—————-— те» «ки» M uus us ds «и» «и» ee «е» qum «ее «лы» жәе» GM «лыс «әл» E HE «ы» um cm um m «м» «қыз «ее «м» «ме «ы «лы» «ка» «жы m ams «м» HR өл» өле» р «қ» Us ums Re «лар «лы» «ке» өше E «ки» D «иң» m m mam tm 
| Routine/Subroutine | 


І-------------------------------------------------------------------- 1 


Function 


|Converts EBCDIC data to required form, moves data to print area. 

| 

|Moves identifier BCD to print area, determines options to be print- 
| ed. 

| 


{Converts binary number to external BCD, moves it to print area. 


|Frees scratch storage, releases modules, releases control. 


{Prints heading line for table according to options specified. 
| 


|5сапв sorted chain of identifiers. 


| 

|Scans STATIC chain. 

| 

{Sorts BCD of variables and creates entry in text for each item. 
| 

|Tests for end of STATIC chain. 


| 
|5сапв PROCEDURE-BEGIN chain. 


| 
{Scans parameter list from PROCEDURE and ENTRY statements. 


| 

|5сапв circular chain of ENTRY statement dictionary entries associat- 
jed with a particular PROCEDURE statement. 

| 

|5сапв AUTOMATIC chain associated with particular PROCEDURE or BEGIN 
| block. 


| 

[Scans CONTROLLED chain for nonparameter DECLARED CONTROLLED dic- 
|tionary entries. 

| 

{Scans text, making chain of references to each dictioary entry. 
| 

|Determines attributes of a given identifier if the ATR option is 
| specified. 


|Moves the references to an identifier to the print buffer and 
| prints. 


1..........-.......-.- j——————————————————————————————— 
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Chart 04. Pretranslator Logical Phase Flowchart 
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Chart GA. Phase GA Overall Logic Diagram 
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Chart GK. 


Phase GK Overall Logic Diagram 
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Chart GP. Phase GP Overall Logic Diagram 
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Chart GU. 


Phase GU Overall Logic Diagram 
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HF Overall Logic Diagram 
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Chart HP. Phase HP Overall Logic Diagram 
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[Main Processing | 


| Statement or Operation Type | Routine | Subroutines Used | 
-----------------------------------|--------------- %-----------------------------------і1 
|Removes all second level markers | Throughout | None | 
| | phase | | 
-----------------------------------|--------------- %----------------------------------- 1 
|Reorders options to put EDIT, DATA |A8 15С№5, SCAN2 | 
jor LIST last | | | 
а о ос р Е И, 1 
|Моуев DO specifications to precede |SCAN2 | LLDOIT | 
[relevant list in data lists, adds | | | 
|END statements | | | 
-----------------------------------|--------------- І-----------------------------------4 
|Expands iteration factors in format|FORLST | None | 
15555 | | | 
— —— Е ÁÁ—— ——— M ———— —«— — —————— 9" 
Table GA1. Phase GA Routine/Subroutine Directory 
"— асасы —————— ——— ————— —— —— ————À——— P—!Á— ————— ee қ 
| Routine/Subroutine| Function | 
|-------------~---- == { 
| AFORMT | Processes FORMAT statements. | 
| | | 
(А6 {Scans source text for СЕТ and PUT statements. | 
| | | 
|A8 {Recorders options to put EDIT, DATA, or LIST last. | 
| | | 
[А21 |5сапв СЕТ or PUT statement for data specification. | 
| | | 
| FORLST |Expands iteration factors in format lists. | 
| | | 
| Е2 | Ссеаёеѕ and buys integer temporary. | 
| | | 
| F5 |5сапв and outputs format item. | 
| | 
| F5A |Sells temporary. | 
| | 
| F6 |Tests for end of format list. | 
| | 
| F6^ |Tests for end of format specification. | 
| | | 
| F6B [Outputs end of format specification. | 
| | | 
(Е7 |5сапв format list. | 
| | | 
| LAB17B |Processes format list in GET or PUT statement. | 
| | | 
| LLDOIT |Моуев DO specifications to precede relevant list in data lists, adds| 
| | END statements. | 
| | | 
| MKROOM | Provides space іп a statement in new source file. | 
| | 
| MR [Initializes text blocks and pointers, and obtains scratch storage. | 
| | | 
| SCAN2 {Scans option list for end of option or statement, expands DO speci- | 
| |fications, and changes certain function markers into pseudo-variable| 
| | markers. | 
| | | 
| SCNS |Scans option list for end of option or statement. | 
L 
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Table GK. Phase GK Pretranslator Parameter Matching 1 
р Se rac aaa ada PSS ee ee ee Sa ene rd 


|Main Processing| 


| Statement or Operation Type | Routine | Subroutines Used | 
[scans source text for function |BASCAN оо, jcesmm, светит | 
| markers | | | 
| ----~------------------------------ }--------------- І----------------------------------- 1 
|Processes function, puts out ref- |ВАЕМ | SCANRP | 
[егепсе and initial code bytes | | | 
[Processes arguments. [вов — [ADDIGT, SENCRP — | 
[Checks numbers of arguments | |ARGNOQ —— IN TI аны анда ныл dE 
———————— TEE Желе шс эы шее Bee NEC 1 
Table GK1. Phase GK Routine/Subroutine Directory 

|Routine/Subroutine| = ~~ Function 00000000 | 
|ADDTGT 00 [Adds data to output text. 000000000000 | 
[БЕЙ ‘cides number of statements. | 
ee |Tests for STOP marker. | 
reer |Outputs function and first bytes of argument list. | 
ТҮ |Tests for end of argument list. | 
[Sir rd function, puts out reference and initial code bytes. | 
fo РОА SETS list апа parameter list for function. | 
ers: E arguments. | 
Ен mieste whether argument list is present. | 
ГЕ ПЕРРИ next argument in list. | 
| BANORM |Sets STOP marker to scan argument. | 
| ВАРУМ |Examines pseudo-variable. | 
РЕ |Tests for nested function reference. | 
о О warning message. | 
ааа РЕ source text for function markers. | 
reer one argument. | 
ee [Adds closing bytes of a statement to output text. | 
ЕЕЕ |Adds first bytes of a statement to output text. | 
ТІНЕ scans argument list. | 
22 [scans argument. | 
алаша сызса ыша асылды ашыды саны ылы НИЕ c НЕ ысы ылы СЫ а ша ee 3 
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Table GP. Phase GP Pretranslator Parameter Matching 2 


А ete SUE = тетет ттр санан а жас m 1 
|Main Processing| | 

| Statement or Operation Type | Routine | Subroutines Used | 
Ш І--------------- м { 
[Scans text for procedure and func- |BS1 |ADDTT, STKINF, UNSTCK | 
| tion calls | | | 
0 І--------------- І----------------------------------- 1 
|Examines argument lists for expres-|BS4 |EXSCAN, М1, М4, M16, SCANFR | 
| sions | | | 
----------------------------------- Іі------------ 4----------------------------------- 1 
|Creates temporaries for scalar | M16 |ADDTT, СОРҮТР, MKDCEN, SETBUY | 
jexpressions and constants | | | 
----------------------------------- = 
|Creates temporaries for array | E2 | АООТТ, CHCKB1, СОРҮТР, MKDCEN, | 
| expressions | | SETBUY | 
І----------------------------------- і--------------- І----------------------------------- 1 
|Creates temporaries for partially [ЕЗ |ADDTT, CHCKB4, COPYTP, MKDCEN, | 
|subscripted array expressions | | SETBUY | 
----------------------------------- І---------------4-----------------------------------1 
|Creates special temporaries for | EX16 |ADDTT, BS2, CHCKB4, CHECKT, СОРУТ1, | 
|рагеіа11у subscripted arrays | |MKDCEN, STKINF, UNSTCK, 211, | 
| | | ЗЕТВОУ, SETMT | 
І----------------------------------- І---------------4----------------------------------- 1 
|Checks single arguments (except | M4 |CHECKT, M16 | 
|structures) with parameter descrip-| | | 
| tions | | | 
----------------------------------- %--------------- %----------------------------------- 1 
|Checks single structure arguments |M5 | CHECKS, CSTTMP | 
----------------------------------- І---------------І-----------------------------------і 
[Creates temporaries for structure |М21 |CSTMP2, MKDCEN, CHCKB4, SETMT, | 
| expressions | | ADDTT | 
----------------------------------- %---------------і-----------------------------------4 
[Creates temporaries for partially |222 |В52, ADDTT | 
| subscripted structure | | | 
----------------------------------- 4---------------І-----------------------------------1 
|Сопраге the two arguments of the | POLY1, POLY2, |BS2 | 
|poly function and create |POLY3, POLY4, | | 
|temporaries if the arguments are | POLY5 | | 
| поё both floating and do not have | | | 
| Бе same scale and precision | | | 
----------------------------------- %---------------4-----------------------------------і 
[Creates special dictionary entries |М37 | None | 
|for generic entry labels used as | | | 
jarguments | | | 
EE See TER ETE DRESSES MES аламызда қамысы ——— ——— I MÀ — 1 
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Table GP1. 


qc T e S qoem rs eme mee eeu me mec SIEMENS 1 
| Routine/Subroutine | 


Phase GP Routine/Subroütine Directory 


Function | 
[arr juu ст та er ДАШЫ | 
|В51 1521,2 input text. 
зе (адаса input text. 
fer ioo: argument lists for expressions. 
| BS10 cee eee routine. 
|В533 |Tests for constant argument. 


| 
|CHCKB1 (GR) 


СНСКВ2 (GR) 


CHCKB3 (GR) 


CHCKB4 (GR) 


CHCKS1 (GR) 
CHECKB (GR) 


CHECKS (GR) 


CHECKT (GR) 
COPYTP (GR) 


COPYT1 (GR) 


EXSCAN (GQ) 
EX16 (GQ) 


EX36 (GQ) 


MKDCEN (GQ) 
1 (GQ) 


2 (GQ) 


5 (GQ) 


M 
M 
M4 (GQ) 
M 
M6 (GQ) 
M 


10 (GQ) 


|Compares the bounds of argument and parameter arrays, and creates 

| пеи dimension tables for temporary arrays. 

| 

]Compares the bounds of argument and parameter arrays where the argu- 
]ment is partially subscripted, and creates new dimension tables for 
|temporary arrays. 


[Creates a new dimension table from a parameter description. 

| 

|Creates new dimension tables for partially subscripted array and 
| structures. 


|Compares the structuring of argument and parameter structures. 


|Compares the bounds of argument and parameter arrays. 

| 

|Сопрагев structuring and data types of argument and parameter struc- 
| tures. 


|Compares data types of arguments and parameters. 
| 
|Creates a temporary dictionary entry from a parameter description. 


| 
|Creates a temporary dictionary entry for a partially subscripted 
|array from a parameter description. 


| 
CSTTMP/CSTMP2 (GQ)|Create temporary structure dictionary entries. 


[Scans expressions for arrays and structures. 


|Creates temporary arrays for partially subscripted array arguments. 


[Creates a chameleon dictionary entry. 


|Creates temporaries for array expressions. 


[Creates temporaries for partially subscripted array expressions. 


|Makes dictionary entries. 


|Examines argument expressions. 


{Examines single arguments with parameter descriptions. 


|Compares single arguments with parameter descriptions. 


|Examines structure arguments. 


[Tests for structure parameter. 


|Processes subscripted variable argument. 


e amm amn «лесе «олан dà —— өзеке- — «лене» [M кезе "— сй» M M remem «мыса M — ena. Өзекше GED «ғалы босаса aiam: MEM anum жыласа dibus SS Mes SS MU mamie Ұйқы MENS SLED EU Gui ams Sama MEME Ұлына» алшын» suam) Guam ANS SESS GED SND cue арра SENSE (рр PENIS жадыны, еті» ымы Semis pum лене» SS cium SD 


Table 6Р1. Phase GP Routine/Subroutine Directory (cont'd) 


larray and structure bounds. 


| STKINF [Stacks information оп encountering nested functions. 

i TNT for constant argument. 

аа ора ар information. 

us (GR) [NM text to set up the dope vectors of partially subscripted 


| а temporaries. 

|222 (GR) |Generates text to assign the structure subscripts of partially sub- 
| |scripted structures to temporaries, and then to set up the dope 

| |vector for the partially subscripted structure temporary. 
Шалы PE ЬО MEN ыша АЖаозанысынаышыышанамызыы a aE Sises tO ERROR RET 4 


_———————————_——— ee ТУРИ n m at E m Msn eg tm не TER UIS Mi ык m ai Ri eae le НЫН ЫЗ ЭЙР д тетте ттт 
| Routine/Subroutine| Function | 
rcl acp EI MEL MOTO Na лл сасыса сы ER асы Л Ы 1 
|M12 (GQ) [Creates a warning message. | 
| | | 
{M13 (GQ) |Gets BUY text. | 
| | 
{M14 (GQ) | Processes scalar argument. | 
| | | 
|М16 (GQ) |Creates temporaries for scalar expressions and constants. | 
| | | 
|M21 (GQ) {Creates temporaries for structure expressions. | 
| | | 
1М22 (60) |Processes data item parameter. | 
| | 

{M23 (GQ) | Processes label parameter. | 
| | | 
{M24 (GQ) |Creates a structure temporary. | 
| | 
|М37 (GQ) |Схеағев dictionary entries for generic entry labels which are argu- | 
| | ments. | 
| | | | 
{M41 (GQ) JError routine. | 
| | 

{M44 (GQ) | Processes dimensioned scalar argument. | 
| | 
|POLY1, POLY2, |Check the arguments to the POLY function and generate code to buy | 
| POLY3, POLY4, |temporaries, if the arguments are not both floating and do not have | 
|POLY5 (all in GR) {the same scale and precision. | 
| 4 

| SCANFR |Scans for matching parentheses. | 
| | | 
| SETBUX (GQ) |Inserts skeletons to buy temporaries in the output text. | 
| | 

|SETMT (GR) [Sets temporary dictionary references in MTF compiler functions for | 
| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 


Table GU. Phase GU Pretranslator Check List 


р == = ee «әм» «тез HÀ ча шш шш ee шы «қы» «ге» е-е» oe — т===== а е азы — «ы» ери» — a «кә — T рери чию eu т» «ке» «ке» р «т» 7 


| |Main Processing] | 


| Statement or Operation Type | Routine | Subroutines Used | 

— e e eu a— oe «мн —— — — раена ----4 өл» — == — «ке» — ше «кек «қ — «қа» — e --+ то е € «өк» «ки» eee «кн» «tu «ғә oe va инь «и» «ле» шш «ғәр oe ----------------4 
|5сапв statement; checks if preced- |BSCAN |CALL, LIST, MOVE, SUOPQ | 
jing SIGNAL statement is needed | | | 

т = о «кин —À «қы» a a oo oh a «ші». uie «шә amm apo ah anae qup au qut» Lp «mo «mp сть AP «то om «тю uum (UD «шә = ---------=--=--4+-------—- --------------------------4 
|5сапв statements; checks if follow-|ASCAN | None | 
Jing SIGNAL statement is needed | | | 
Н------- Came uum epu «қы» «шеш ру «то емле ee ee жыл: «қ «лт сл» жакы ee «іе» du» «ке» «ке» чс — ——— + === + oe —À шз a —— «кес «ра ee шшш жне «е» — ше —À а» qn сз» cmm «еше Gp жы ee ғыз oe а» AED am oe oe —————4À 
|Provides a SIGNAL CHECK Statement | CALL | GENTST | 

to «= «кз aue tm «кше өше GR» an am dap (m «к» «кә on cp din quA ne «ке еме «ш» «ке «ме «а «м» ee аен am «шә ap чы» «кә ы» «ке» «фо «ке» cmm «ки» эгиз «ық» «ы» «ки» «қос «ж» «ме -----і----------- —— — «ве «шә «қо ame «кр «ке US «кә UM «ғар «кке «к» ee «кә. ue dup qup сш» «кә «шә «кә 4 
| Searches list for checked items о {CALL, LIST 1 
b sas mim mme а өсе сал ee ше жана зз сыз эк== еее шшш ee ш» (pes sum жес чы жш ш шш aas сны тшш чш чене oe чыш» ч acra cum. өзде тшше cmm шатқ aem өзен шош ао әле жм а= А. ие ne чира ome араа чи» әже сте жыр oe аже cee че» жады сь отш» а. apre бамо apro MARE) емен дыла ы «ада AO PE CMS RE чыт -————— | 
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Table GU1. 


ғ------------------ 
| Routine/Subroutine 


—— — — — «ша» «мер «шы» «кіл» «ше» )-—— à «ле» a «лы» «ши» — he «лы» өкше ee we «ши» ww en «и» qa aa «ль «тыз «зе» «шә» «шеп UNUS AUD ee rn ee ee ee ee ee a «ки» «кан «же» ewe «им» ew «ме е» 


| ABGNDO 
| 

| AFM 

| 

| ASC 


| 
| ASCAN 


fon 
ее 
mm 
foe 
| ATESTS 
Lasers 


| 
| BENTON 


СЕ 

peer 
Бе 
ГЕНА 
Е 


| 
| BVARNO 


| 
|CALL (GV) 


я 
а 
COP 
ее 
атты 


| 
| GENTST 


(GV) 
(GV) 
(GV) 
(GV) 


(GV) 


| 
|LIST (GV) 


| 
| MOVE 


| 
t 
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SUOPQ (GV) 


T 
| 


Phase GU Routine/Subroutine Directory 
Se ыш орлы 1 ына E E E a шал қсы қалалы а ШЫСЫ 3 


Function 


|Sets IF-switch for THEN or ELSE clause. 
| 


|Signals checked items in argument list. 


{Tests statement identifier and takes action if necessary. 


|Scans statements; checks if following SIGNAL statement is 


|Examines statement dictionary entry. 


|Examines statement dictionary entry which is not a label. 


|Housekeeping for end of statement. 


|Tests for argument list. 


| 
|Tests for THEN. 


|Tests for end of statement. 


| Test whether argument list contains checked item. 


|Processes "possible check" statement. 


required. 


|Scans statement; checks if preceding SIGNAL statement is required. 


|Tests whether SIGNAL statement may be needed after statement output. 


[Tests for end of statement. 


|Tests for argument list. 


| 
{Tests for END statement. 


| 
|Outputs SIGNAL statement for checked item. 


|Tests whether SIGNAL precedes or follows statement responsible. 


|Exit from subroutine CALL. 


| 
|Tests whether DO statement must be output. 


|Re-outputs overwritten statement after DO statement. 


| 

|Outputs SIGNAL statement. 

|Спескв space in output text block. 

|Updates and searches list of currently checked items. 
| 


|Моуев text from source to output. 


|Searches list for checked items. 


| 
| 
і 
| 
і 
1 
! 
| 
| 
| 
[ 
і 
! 
і 
t 
| 
! 
! 
к 
| 
| 
| 
| 
| 
П 
[ 
! 
! 
t 
і 
[ 
| 
| 
| 
| 
і 
1 
| 
і 
і 
| 
[ 
[ 
| 
| 
і 
і 
[ 
| 
[ 
! 
! 
{ 
| 
і 
l 
[ 
| 
р 
| 
{ 
| 
t 
і 
t 
i 
| 
[ 
і 
і 
[ 
| 
і 
[ 
i 
[ 
і 
! 
і 
| 
і 
! 
1 
! 
і 
l 
і 
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Table НЕ. Phase НЕ Pretranslator Structure Assignment 


Poe re ee а қынынан ee ey таак re, Me ep op ee гай айр зел рк аа лса сы ЕКА аА PE UE 1 
|Main Processing] 


| Statement or Operation Type | Routine 


[Scans text for structure assignment | МВ 
|Statements, regions of nested | 
jstatements, output list expres- 
|sions, and structure references in 
linput lists 


|BYNAME, GENTST, LSTSCN, MOVE, 


-je = a e 


Subroutines Used | 


NSTSCN, STRASS, STREXP, STRURE 


ł 
|Expands structure assignments and |BYNAME, STRASS, |DVCON, GENTST, LSTSCN, MOVE, 
|ехргеввіопв into а set of scalar |STREXP, STRURE |NSTSCN, SBGN 


lassignments or expressions corres- | 
|ponding to the base elements of the| 
[structure operands. Where the base| 
jelements are arrays, the corres- | 
|ponding component expressions or | 
jassignments are surrounded by | 
lappropriately iterating DO groups | 


tee «). «шә «ше шш «ке» — «ке» — «ке «м» «ше «шә 


|5сапв regions of nested statements |NSTSCN 
|for structure assignments | 


| Adds text to the output string | MOVE 


}----------------------------------- %----------- 


|Determines space availability іп an|GENTST 
joutput text block | 


— — — e p a «ее — «ле» «лақ» «лы» алы» еее es «лы» um e чыш ee «лы» «ме am «ши» «ше» aee «ә» um «а» «шә «к» we oje «ш» — «ше «е «ек» «әке «жә жш» «шә «қ — 


[Scans function argument and sub- | LSTSCN 
[script lists | 


———— — a «ек A A we rm «Ир» we «кш» a M AM ee ee чар «ы» m AM «е» «ше «лә» «мш «ме «кы» «ле» «ее ee «и» «ше эй» —— «ом» өм» «ш» «ше «ге» — Á— «ж» «ше = 


|Constructs subscript lists for | SBGN 
|references to dimensioned structure| 
|base elements | 


Llllllllll. all ee Se SS ee а 


fe pt e a e 


MOVE, NSTSCN, STRASS 


MOVE, NSTSCN 


— ——— «шә a өш» — «ки» o — AQ «лыр — «шар a — «ки» eee «ши» өш» «ши» «мә 
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Table HF1. 


ЕЕ 
| Routine/Subroutine 


| ВҮМАМЕ (HG) 
feo (HG) 
T (HG) 
poe (HG) 
co (HG) 
‘Gouna 
m: 
ЕРЕ 
|0821 

|1523 


| MOVE 


| MR 


SAEND (HG) 
SAOP (HG) 
SATRT (HG) 


SAX1 (HG) 


SA32 (HG) 
SA36 (HG) 
SA73 (HG) 


| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

15А20 (HG) 
| 

| 

| 

| 

| 

| 

|5А79 (HG) 
| 
| 
| 
| 
| 
| 
| 
| 
| 
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Phase НЕ Routine/Subroutine Directory 
т 
| 


Function 


|Expands BYNAME structure assignments. 


[Searches for matching BCDs down to base elements. 


|Returns to start of current output assignment statement. 


|Test for matching BCDs. 
| 


[Constructs DO statements, checks bound equivalence. 


[|Determines space in output text block. 


| 
|Tests for GET statement, 
| 


[Scans subscript arguments and subscript lists. 


|Tests for structure item in data specification. 


|Tests for data-directed data specification. 


|Adds text to output string. 


{Scans text for structure assignment statements, nested statements, 
Joutput list expressions, and structure references in input lists. 


|Tests for BY NAME assignment statement. 


[Scans source text for structures. 


[Scans regions of nested statements for structure assignments. 


[Builds up stack to show pattern of structure. 


{Tests whether END statements need to be output. 


|Examines dictionary reference found. 


[Scans structure expression or assignment. 


|Tests whether item matches the stack pattern. 


|Tests for start of structure expression. 


[Outputs base element and replaces it in source text. 


[Tests for BY NAME assignment statement. 


[Outputs END statements. 


|Resets scan pointer to start of expression/assignment. 


| 
{Constructs subscript lists for references to dimensioned 
| base elements. 


|Expands structure assignments into DO loops. 


|Expands structure expressions. 


| Expands structure references. 


ee ee m 1 e a i 1 


structure 


Èm mmm cater м кә. м mms A —— көкке м анына елек DN өлке» — — өлке» «екен өше-е er шәм» sees SUD mes «кеше жәе. «ғаз ue Sc SS ee — ees өлен — GD OS — SS HÀ — ee — a— — — —— ты» чыыр ee 


Table HK. Pretranslator Array Assignment 
fre ae E ee i re Te ee ee oe Ge re ere ee 1 


|Main Processing| 


| Statement or Operation Type | Routine | Subroutines Used | 
----------------------------------- %---------------4-----------------------------------і 
|5сапв text for array and scalar | MR | None | 
jJassignment statements | | | 
}----------------------------------- 1--------------- %------------------------ ----------- 1 
|Scans text for nested array and | MR | NESTAT | 
| ѕса1аг assignment statements | | | 
-----------------------------------і--------------- 4-----------------------------------і 
|5сапв text for array expressions in|MR | ARRASS, LSTSCN | 
[I/O lists in GET and PUT statements | | | 
= І-----------------------------------1 
|Expands arrays into DO loops and  |ARRASS |FRETMP, MDE, OPTST, SLGCH, SUBSKP | 
|зса1аг assignments; checks dimen- | | | 
|зіопв and bounds | | | 
bite ee Sa шшш ы ee аы Е, Ды са бады сас ae t TUNI шш ШЫ сылы ыы EN 1 
Table НК1. Phase HK Routine/Subroutine Directory 
т: И E E ME НБ x AI MR шысы ан аңыр ee M р E KC E Ana 1 
| Routine/Subroutine| Function | 
--------------- І--------------------------------------------------------------------і 
|AADOP (HL) |Examines leftmost operand. | 
| | | 
|AAMULA (HL) |Tests for multiple assignment. | 
| | 
|ААЗ (HL) {Checks pseudo-variables. | 
| | | 
|AETRT (HL) [Scans array expression. | 
| | | 
|ARRASS (HL) |Expands arrays into DO loops and scalar assignments; checks dimen- | 
| |sions and bounds. | 
| | | 
| ARREXP (HL) |Generates DO loops and subscripts for array references. | 
| | 
|ARRIN (HL) [Entry point for array expressions in input lists. | 
| | | 
| ARROUT (HL) |Entry point for array expressions in output lists. | 
| | | 
| FRETMP |Generates a SELL statement for temporaries bought in the current | 
| | statement. | 
| | | 
| LSTSCN | 5сапѕ I/O lists for possible array expressions. | 
| | | 
| МОЕ |Макев a temporary dictionary entry. | 
| | | 
| MR |5сапв text for array and scalar assignment statements, for nested | 
larray and scalar assignment statements, and for array expressions in| 
|GET and PUT statements. | 
| | 
MREOP |Tests for end of text. | 
| | 
MRTRT |Scans text. | 
| | 
МЕ5ТАТ |5сапв nested statements. | 
| 
OPTST (HL) |Тевев any given operand. | 
| | 
SLGCH (HL) {Generates and checks subscript lists. | 
| | 
SLMCG (HL) jInserts subscripts in expanded array position. | 
| | 
SUBSKP (HL) |Skips a subscript or subscript list. | 
a даш ыы as aa et жазысты ea Ae сыла с ВЕНА АННЕ gene Аса. лал сыл аты ыты ee 
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Table HP. Phase HP Pretranslator iSub Defining 


| 
[GENTST (HQ) 


| 
[Checks space in output text block. 
| 


AE eaedem eem pe qu cce E асылда | x yp MEC C E CC eg ee GC садақ 1 
| |Main Processing| | 
| Statement or Operation Type | Routine | Subroutines Used | 
---------- -------------------------і|---------------4-----------------------------------і1 
|5сапв source text for references | MASCAN | MOVE | 
|defined by 150В | | | 
}----------------------------------- ---------------- 4----------------------------------- 1 
|Processes references defined by | DEFSUB |GENTST, MOVE, SULIST, SUMOVE | 
|150В | | | 
----------------------------------- і------- -------- %----------------------------------- 1 
|5сапв subscripts | SUMOVE | None | 
| | (іп SULIST) | | 
re —"— ышы ш eee ышыгы decus A ыы Ea ae see НРА НЕ EE I EE J 
Table HP1. Phase HP Routine/Subroutine Directory 
fo ee et We аы ысу Ne DPI TTD E ua ee eS IAE E ENTUM a ne 1 
| Routine/Subroutine | Function | 
------------------- І-------------------------------------------------------------------- 1 
| DEDONE |Resets pointers to scan first subscript list. | 
| | | 
| DEEND2 [Creates and buys temporary. | 
| | | 
| DEFSUB |Processes references defined by iSUB. | 
| | 
| DEGBD1 |Tests for end of second subscript list. | 
| | | 
| DEGBD8 |Bumps pointer to end of first-list subscript. | 
| | | 
| DEGUB |Tests T2-switch when temporary assignment needed. | 
| | 
| DEGUBD |Tests T2-switch when no temporary assignment needed. | 
| | | 
| DELISQ [Output temporary for non-zero iSUB. | 
| | | 
| DELTMP | Outputs nested temporary assignment statement for multiplier. | 
| | | 
|БЕІ000 |Tests whether first-list multiplier is simple dictionary reference. | 
| | 
| DENEXT |Tests for end of first-list subscript expression. | 
| | | 
| DENGB {Tests whether dictionary reference is constant or integer variable. | 
| | 
| DEN2GB |Outputs multiplier dictionary reference. | 
| | | 
| DEOLP | Теѕіѕ whether first-list subscript consists of a single 1508. | 
| | | 
| DESCLN |Tests for end of first subscript list. | 
| | 
| DETEMG |Tests whether second-list subscript is simple dictionary reference. | 
| 
| DEUMO |Tests whether first iSUB in first-list subscript has a multiplier. | 
| 
| 
| INIT Jinitializes text blocks and pointers, gets scratch storage. | 
| | 
| MASCAN }Scans source text for references defined by iSUB. | 
| | | 
| МОУЕ (НО) |Moves text from source to output. | 
| | | 
| SULIST |5сапв subscript lists. | 
| | 
| SUMOVE | 5сапѕ subscripts. | 
быы шеи шшен шебш E a ea E E P ЛЕ БЕКА taz шы шы мл ee 1 


Chart 05. Translator Logical Phase Flowchart 
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Phase IA Overall Logic Diagram 
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Chart IG. Phase IG Overall Logic Diagram 
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Table IA. Phase IA Translator Stacker 


бейик сощы река isa c DM тишиниз етс тан и 1 
|Main Processing] 


| Statement or Operation Туре | Routine | Subroutines Used | 
|-----------------------------------}------------~-- }----------------------------------- 1 
|5сапв source text | ESCAN |None | 
}-----------------------------------}--------------- }----------~------------------------ 1 
|Compares transfer vector | EACTNC |ЕСОО to ECOF | 
-----------------------------------і--------------- І-----------------------------------і 
[Stacks transfer vector | EACTNS |Е500 to ES2C | 
тшшш тала шшш МЕНЕНЕ НЕН НЕЕ ЛЕЛЕРДИН ы лалы ы Ба ылас ралы ы ы шаласы ысы ылы НЕНБАР НЕНА 1 
|Generates triples | EGENR | EGENR2, EGENR3, ENEWBL, ENOREP, | 
| | |EREPL, ETRBMP | 
———————————————— aet denies ei ven e iE ary | ——Á— ——— HORACE NES ad 
Table IA1. Phase IA Routine/Subroutine Directory 


[CUTE I TU И Wo T OW TO Te Pag A ee НАЗЫ re heheh ety can a RUE ET CEU TEE x ааа 1 
! Function 


Routine/Subroutine | 


}------------------ }~------------------------------------------------------------------- 1 


|Сопрагев transfer vector. 


| EACTNC 


| 
| EACTNS 


| 
|EC00 to ECOF 


| 

| EGENR 
| 

| EGENR2 
| 

| 

| EGENR3 


| ENEWBL 


ESCAN 
ESTCAC 


500 to ES2C 


ы t 


TRBMP 


|Stacks transfer vector. 


|Provide comparison action for each operator. 


|Generates triples. 


| 


|Generates triple for top stack operator, with blank first operand, 


|then deletes the operator from the stack. 


{Generates triple with two blank operands. 


JObtains and chains new text block for output, resets output pointer. 


| 


{Deletes top stack operator, flags new top operand as the result of 


|the triple just generated. 


|Replaces top stack operator by its prime, to indicate end of a list 


lof function arguments or subscripts. 


[Scans source text. 


|Places operand in stack. 


| Handle stacking of operators. 


|Increments output point over one triple if end of text block is 


| found. 
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Table IG. Phase IG Translator Pre-Generic 


Pree ыа ыйну ТАТ Т E CE SE RC. КОШЕ S NES ЕЗ eee quc cmm cU a a о 1 
{Main Processing | | 
| Statement or Operation Type | Routine | Subroutines Used | 
----------------------------------- %---------------4-----------------------------------1 
|5сапв text for BUY aggregate argu- |651 |FR, BR, ТКЕ1, GS12 | 
|ment dummies, end-of-block, and | | | 
|end-of-program triples | | | 
----------------------------------- 4---------------1-----------------------------------4 
[Obtains next text block |6512 |Ҡопе | 
------------------------------------ --------------- І----------------------------------- 1 
| Transfers text to output block | TRF1 |None | 
----------------------------------- %---------------і-----------------------------------і 
| Transfers text skeletons to output |TRF2 |651, TRF1 | 
----------------------------------- І---------------1-----------------------------------1 
[Stacks and unstacks information on |FR, FRP | None | 
|encountering function and function | | | 
| triples | | | 
І----------------------------------- і--------------- І1----------------------------------- 1 
| Inserts assignment statement for | BR |651, TRF2 | 
laggregate argument dummies | | | 
rcc ш зшен ылы Шыны шын = | mon TR RC ш ea ee алан аны а ee 
Table 161. Phase IG Routine/Subroutine Directory 
ast aa ----------ү--------------------------------------------------------------------4 
| Rout ine/Subroutine| Function | 
p------------------ -—-——-—--------------- ------------------------------------------------ 1 
[ВЕ {inserts assignment statements for aggregate argument dummies. | 
| | 
| BR1 [Transfers point for IGNORE triple. | 
| | 
| BR2 [Inserts assignment into text. | 
| | 
| BR3 | Макеѕ new dictionary entry for temporaries. | 
| | | 
| ВЕ | Processes second BUY. | 
| | 
| FR, FRP |Stack and unstack information on encountering function and function'| 
| |Егіріев. | 
| | | 
1651 {Scans text for BUY aggregate argument dummies, end-of-block, end-of-| 
| |program triples. | 
| | | 
16512 | Сһаіпѕ to next text block оп encountering an end of block marker. | 
| | | 
| TRF1 |Transfers text to the output block. | 
| | 
| TRF2 |Transfers text skeletons to the output block. | 
Е ИН — Е ЕЕ EE Е ЕЕ ——————— J 
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Table IL. Phase IL Translator Pre-Generic 


ааа. к мавр долана, a ааа са mI ааа 1 

|Main Processing| | 
| Statement or Operation Type | Routine | Subroutines Used | 
----------------------------------- %---------------4-----------------------------------і 
|Moves function table to scratch | BASROU | None | 
| storage. | | | | 
Cede ы ын лы ы ae ee сады Жыш PP RE ELI S ll iE e AT ыш ысы ы атыла 1 


Table ІМ. Phase IM Translator Generic 


pov uu E IUE mU Ly c E RERUM He ME CERE M MD C MIU de инсан cC OE d 1 
|Main Processing| | 

| Statement or Operation Type 1 Routine | Subroutines Used | 
----------------------------------- І---------------1-----------------------------------і 
|Selects function for processing | SNFUNC | GNXTRP | 
|----------- ------------------------ І--------------- %----------------------------------- 1 
|Беіесіс generic procedure | GNPLIG |GNDRTA, GNXTRP, GNFMID | 
----------------------------------- %---------------4-----------------------------------4 
|Selects generic Library routines; | GNBIFH |СМАВТО, GNCBEF, GNCACI, GNCTBI, | 
[determines function result | |GNGNCR, GNPRSC, GNSACH, GNSAPC, | 
| | |GNSBAR, EXPANL | 
rop ME P MEM MEME E TEENS 4%----------------------------------- 1 
|Беіесів chameleon dummy and inserts|GNCHAM |[GNXTRP, EXPANL | 
jit in relevant dictionary entry | i | 
----------------------------------- 1---------------4-----------------------------------і4 
[Controls scan of text -- branches |EXPANL |ARITH, LST1, SUBSPT, ASSIGN | 
|to processing routine l | | 
лекетке шыш ны LLL Li una S жеке rte Жылыш ыш зш ыны Ere dcc a des 4 
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Table 1М1. 
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Phase IM Routine/Subroutine Directory 


р <m == о ap — ee A am — ee ce at «ше» «ли» өлке ------------------------------------------------ 


| Routine/Subroutine| 


Function 


|Calculates type of result of arithmetic operation (except **). 


[Returns to calling phase with result. 


|Controis scan of text -- branches to processing routine. 


|identifies argument of built-in function and converts it to valid 
|type, if possible. 
| 


|Selects generic Library routine; determines function result. 


{Selects relevant family member. 


[Sets up result type of a built-in function. 


|Checks and converts a decimal integer. 


|Standardizes argument code byte to a form for generic selection. 


[Selects chameleon dummy and inserts it in relevant dictionary entry. 


|Converts from decimal to binary. 


| 
|Analyzes dictionary type. 


|Processes end-of-block marker. 


[Processes end-of-program marker. 
|Identifies family member. 
|Selects function for processing. 


[Checks for nested function situation. 


| 
|Sets up result type of a PL/I function. 


|Replaces original reference in text. 


|Forms entry relating to particular invocation. 


|General conversion routine. 


|Forms table of family member descriptions. 


{Selects highest mode, scale and precision of variable argument list. 


|Performs special argument check. 


|Calculates scale and precision of a function result. 


|Handles a subscripted argument. 


|Scans source text. 

| 

|Gets next triple. 

{Calculates type and length of result of string operation. 


Tadas type of array to stack. 
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Chart 06. Aggregates Logical Phase Flowchart 
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Chart JK, 


Phase JK Overall Logic Diagram 
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Chart JP. Phase JP Overall Logic Diagram 
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Table JK. Phase JK Aggregates Structure Processor 


fe ry a ea РБ к ree Me er ee ae he аны 1 
|Main Processing | | 

| Statement or Operation Type | Routine | Subroutines Used | 
----------------------------------- 4---------------1-----------------------------------1 
|5сапв AUTOMATIC, STATIC, and | SCNCHN |ADRDV, CHKDEF, MKDVD, MKRDV, | 
| CONTROLLED chains | | PROCDT, PROCST, SETBRF, TERMWS | 
------------------ -----------------|---------------|-----------------------------------1 
| Processes DEFINED items | CHKDEF |CMPIL1, INOBJ, PROCDT, PROCST, | 
| | | STBASE | 
= 1------------- --4----------------------------------- 1 
| Processes structures (calculates | PROCST |CMPIL1, INOBJ, ELSIZ | 
loffsets, multipliers, sizes, | | | 
lalignments and padding; generates | | | 
jobject code) | | | 
----------------------------------- %----------- І----------------------------------- 1 
|Processes arrays (calculates mul-  |PROCDT |CMPIL1, INOBJ, LOADCN, SP54 | 
|tipliers and generates object code | | | 
—— ——Ó—Ó ———— — — ——— Id 
|Calculates storage offsets for | P525 | CMPIL1 | 
ladjustable items in structures | | | 
---------- -------------------------|---------------4-----------------------------------4 
|Calculates storage offsets for | ALVACA | CMPIL1 | 
ladjustable arrays | | | 
--------- --------------------------і---------------1-----------------------------------1 
|Calculates storage offsets for | ALVACI | CHPIL1 | 
jadjustable strings | | | 
КИ ee a ене quc p ee ee ee 1 
|Generates code to initialize string|SVARY [CMPIL1, INOBJ, IPDV, VOBJC | 
|dope vectors for arrays of varying | | | 
[strings in structures | | | 
Ec ood cu i ur ee ете n аналы | 
|Generates code to initialize string|VOBJC |CMPIL1, INOBJ, IPDV | 
| dope vectors for varying, non- | | | 
|вЕгиселгей arrays | | | 
---------- -------------------------4---------------1-----------------------------------і 
|Generates code to calculate the | STBASE | CMPIL1 | 
|starting address of storage for | | | 
Joverlay defined items | | | 
----------------------------------- %---------------4-----------------------------------4 
|Аа4в text skeletons to the output |CMPIL1 | None | 
jstream | | | 
Ноа ee ee ne E NER ея Е а шы к SaaS 1 
| Макеѕ dictionary entries for dope |МКрУр | ELSIZ | 
| vector descriptions | | | 
----------------------------------- %---------------%-----------------------------------і1 
| Макеѕ dictionary entries for record|MKRDV | MKCNST, CMPIL1 | 
[description vectors | | | 
І----------------------------------- і----------- І----------------------------------- 1 
[Generates code to set the address |ADRDV | INOBJ, CMPIL1 | 
lin a record description vector at | | | 
jobject time | | | 
--2--------------------------------і----------- І----------------------------------- 1 
|Calculates the length and alignment|ELSIZ | None | 
lof scalar data items | | | 
bee eee ee ee сиы ыш Te алд айы даны а ны  "————————— EE шынысына J 
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Table JK1. 


| ADRDV (JL) 


| 
| ALVACA 
| 
| ALVACI 


| 
| CHKDEF 
| 
| CMPIL1 


| 
| ELSIZ 


(JL) 
(JL) 
(JM) 


(JL) 


| 
|INOBJ (JL) 


|IPDV (JM) 


| 
| LOADCN 
| 


| 
| мкрур 


(JL) 


| 
|MKRDV (JM) 


Phase JK Routine/Subroutine Directory 


ӨЕРЕ ee n Tiss Soa se Oe жак ee ee ee ee ME RH M CC ойла 1 
| Routine/Subroutine| 


—=- )— «и» «ше» «м» «ле a a «лар «шқ» чн «шә» «ка» — «ғи» em e өзе «не» a «не» «әл» «ки» «ғы» cU A «ки» «к» «ши» — «ки» «қа A «лм» a «әже «е» «е «че «е «ше «ы» «и» —— жне — «ее жш» «ле» aa M «жы» «шш» «ле» dum UD um «к» «а» qum «ке» «зе еке «кк» өл» «жа» «е» «ка» «ли» «ки» «е» GERA чый» ели» «шие «көле AUD «ли» «шқ» UD. «ша» «олы» m «өле «кә» 


|Generates addressing code for AUTOMATIC RDVs. 
|Calculates storage offsets for adjustable arrays. 


|Calculates storage offsets for adjustable strings. 


| Processes DEFINED items. 


| 
J|Adds text skeletons to the output stream. 
| 


[Determines size of storage required for structure base elements. 


|Initializes object code statements. 


|Generates code to set up primary dope vectors. 


{Generates object code to load object registers with constants known 


Jat compile time. 
|Makes dictionary entries for DVDs. 


|Makes dictionary entries for RDVs. 


| | 
| NXTREF/NXTRF1 (JM)|Gets the next structure base reference. 


eee: 
ОЕ 
Е 

esen 
T 
sinus 
| epsu 


| 
| STBASE 


TERMWS 


Ё=————————— 


(JM) 


(JL) 


(JL) 


(JM) 


SVARY (JL) 


(JL) 


VOBJC (JL) 


|Processes arrays. 


|Processes structures. 


|Calculates storage offsets for adjustable items in structures. 


| 
[Scans AUTOMATIC, STATIC, and CONTROLLED chains. 


|Sets the reference to the current entry type 1. 
[Sets the dynamic dope vector size for non-adjustable structures. 


|Calculates base element multiples. 

| 

{Generates code to initialize starting address storage for overlay 
| defined items. 

| 

|Generates code to initialize string dope vectors for arrays of 
|varying strings in structures. 


|Terminates object code. 


|Generates code to initialize string dope vectors for varying, non- 
{structured arrays. 
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Table JP. Phase JP Translator Defined Check 


eR Tre ere ee ETE qon p ee СЕ Сыйыр i ee LM a ee ae 1 
|Main Processing | | 
| Statement or Operation Type | Routine | Subroutines Used | 
----------------------------------- І---------------|-----------------------------------і 
|5сапв DEFINED chain; checks | IEMJP |GETCLS, GETLTH, STRCMP | 
| validity | | | 
-----------------------------------4--------------- %----------------------------------- 1 
|Checks that two structure descrip- |STRCMP | None | 
|tions are the same and that they | | | 
| may be validly overlaid | | | 
vc oes TOREM E m Bee a he шы a НЕБЕС xeu LIC алымы atc 
Table 2Р1. Phase JP Routine/Subroutine Directory 
база тынысына ны Штаты aaa aaa ae aS eas ee a a дына ығы eee тазыны 1 
| Routine/Subroutine| Function | 
ЕЕ Е Е ЕЕ ah EE EE E a ОЕ РЕ ЕЕ ey 1 
| GETCLS |Analyzes structure descriptions, and checks that all elements аге оѓ | 
| |the same defining class. | 
| | 
| GETLTH |Obtains length of string or numeric field from associated dictionary | 
| | entry. | 
| | | , ‚ | 
| IEMJP }Controlling scan of DEFINED chain; checks validity. | 
| | | 
| JP8 |Tests whether defined item is packed. | 
| | | 
|2Р20 |Tests whether base defined item is adjustable. | 
| i | 
| TP200 |Tests whether item is а structure. | 
| | | 
| JP540 |Tests whether defined item is coded arithmetic. | 
| | | 
| JP541 |Compares base and defined item. | 
| | 
| JP542 |Tests whether defined item is dimensioned. | 
| | | 
| JP543 |Tests whether base code is arithmetic. | 
| | | 
[5ТЕСМР |Compares structure descriptions. | 
милек ик нен енсе REA Баса с MUN ЕРОТ алы лы алы ықы ақында тылды азы анына алды а ЕЕ 1 
Table JZ. Module JZ Compiler Control 
Ee заса а саи he AE a oO БЕКЕ ИКА ee б ЭРНИ НЕ Кале КОБЕ: EE CAD EI C M ee ee ge 1 
| |Main Processing | | 
| Function | Routine Routines Used | 
}----------------------------------- к 1 
|Reconstructs the phase directory | ТЕМӘ2 RLSCTL, ZUPL, ZEND 


|Ғос the second half of the compiler| 


| Entry to 05/360: BLDL 
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Chart 07.  Pseudo-Code Logical Phase Flowchart 
HK 
*07 ж 
ж А1 
жж 
ж 
: ӨӨ, 
x А 2%. 
жж OA T жос осо ХЕ ‘a AZ ж. ЖЕЖ A А ХХ EEEE] 
*SCAN LA* . «Ж АМҮ *. *CALLS & FNS мге 
жж 2 24” GENERIC  *. YES Ho KOH коже KK KE 
* UTILITY ж . ж, ARGUMENTS .5........ХЖж PROCESS H 
* SCANNING ж . . .% ж GENERIC ж 
ж PHASE ж . ж. * ж ENTRY NAMES ж 
жо кодоо Е ж. ež ж о оо 
. . ж NO . 
3 : 5 : —— а 
X . X . . . 
.*. . 2%. X 2 X 
81 ж. KARR жік M B3 7», жороо фк $ AOK рож афко 
.* *. * INITÍAL (В я 2% ANY 7%, CALLS 6 FNS Ммж -  -#COMPILER ENS OB% 
24” DYNAMIC *. YES Kak dem жж 2 .* FUNCTION *. YES ЖЖ x Rok KK KK ж. 
ж; INITIAL fM... SÉ X* CONSTRUCT * . 4: REFERENCES :%........ХЖРРОСЕ55 CALL & s + PROCESS * 
ж, .* ж TRIPLES FOR * H *. я *& ЕМ PROCEDURE ж 20 *COMPILER FNS & * 
ж. E *DYNAMIC INITIAL* ` *. .* INVOCATIONS ж 22 *PSEUDO-VARIABLS* 
ж. ж ROK RA RRR RAK KE A РЧ 2 ж. .ж ЖЕ н ж жоок ОКК RK 
* NO . . ж NU . . . 
š s : й « 5 5 
амы ына а АЗ қы» а У ` : x 
x . . " . " 
Cl” “ж. ЖЖ 2 М OBER GH RR Т. Е dc kctek жк кок ok 
.% ж. *INITIAL Lox . . &STRING (уж . *ASSIGNMENT NE* 
4 5ТАТІС ж. YES KH Ka Km 6 He KK © . к к . К к 
ж. INITIAL .Х5........ХЖ CONSTRUCT ж . . ж PROVIDE . ж CONSTRUCT * 
. . TRIPLES FOR ж . . СТТН? HANDLINGS . *PSEJNO-CODE FOR* 
ж. .% *STATIC INITIAL * . . ж ACILITIES . * ASSIGNMENTS ж 
ж. .ж жж жокк ROR ROR P EP $ x И я ЖК К ЖЖ 
* NO . . . . . . 
ора на ао а Ы я ааа 4 х 
X . X . . 
.*. . .*. . X 
01 ж. BARR KD 2 ажо рз” ж. FORD жоК > орбо о 
V ж, %00 EXPANSION (6% я -* NEED ^*.. *BUY & SELL MP% i UK RELEASE ж 
.* Ж. YES RRR RR š .* TO YES Ha RRA GL ROH RR 200% UTILITIES, ж 
ж. STATEMENTS И "EXP AND * + — *REOROER STRING. Heese en aXe REORDER * . ж TEMLA, AND * 
ж, .* ж 00 LOOPS ж М ж. BUYING .* BUY AND SELL * . * TEMLV ж 
*. .* ж ж * *.CODE „ж «STATEMENTS 20% ж 
ж, .* жок RACH a x ж. ож Жжж EERE RE KEK > Жк ж КЖ 
ж . Я ж NO : қ К 
РЕНИ ЕЕ СО - она Н қ 4 
$ 5 x 2 3 
жак ккк 2 ЕЗ” Eos Xe E GREEK RE 2 ROE E беу 
жЕХРЫ EVAL LR,LS* . „Ж *SUBSCRIPTS MS* . FUTBRARY. CALL OG* 
$ 5 E *. YES ЖЖ #2 4 Ik k-k- kokke 
CONVERT EXPR- ж . ж. ү зив$ЕКТЕТ5 .%.......қ% CONSTRUCT ж . GENERATE ж 
*ESSION TRIPLES ж . 5 .* ж PSEUDO-CODE ж . LIBRARY CALLING* 
*TO PSEUDO-CODE * . 7%; .% *FOR SUBSCRIPTS ж . ж SEQUENCES ж 
КЕ 2 ж... жж жже RR OK fe ROK . жок ж gale 
y : *' NO . Е : 
: 5 ыма ыы ока к 2 
X х x 2 x 
жк] EKER ERE RK 3 ЕО M жар жж 
*STRING UTILS ive . ZERI ON,RETNS МАЎ . SCONSTANTS 05ж 
#45 Ж Lk kk kh kee 2 k-k-k-k-k-k-k-k-k 
PROVIDE x Z MAKE PSEUDO. ж > — *CONVERT  CONSTS& 
*STRING HANDLING* > *CODE FOR BRAN- Ж Е ТП REQUIRED 
FACILITIES * < ®CHES, RETURN, ЕТСЖ > * INTERNAL FORM ж 
ких M ж EEE EERE RRR > KR EK ERE RE REA жж 
eee ol : х К н 
ж Gl *.X. : 3 2 x 
* . . $ M Rao 
жек X > X 5 ж08 ж 
2%. . 2%. . ж Al* 
6! ж, WRI жж дж Жж . G3 ж. жж ROR RG ж жк Жс к жск 4: ж ж 
.% АМҮ f *STRING HANOL (нж . .% ж. %0/5 SERVICES NGS . ж 
ж STRING ж. YES ж-ж-ж-ж-ж-ж-ж-ж- . .* DISPLAY *. YES ж-ж-ж-ж-ж-ж-ж-ж- . 
*. EXPRESSIONS | О" ч "CO ÜNVERT * . ж. OR DELAY ж........Х% MAKE LIB *CALL * . 
. . *STRING TRIPLES м . ж. STATEMENT. * *SEQS FOR DELAY ж Е 
ж, .% ж . ж. .% *& DISPLAY STATS* . 
ЖЕ ИИ z *. .* ЖЖ 2 
* NO Ё е * NO ў * 
ИТАР Ы 4 РНС E аз e ere 6 i 
X . X . 
.*. . 2%. è 
H1 ж. SRK жж кк 2 H3 ^ “ж, жежок к 5 
ж АМҮ %, *PSEUDO-VARS Mer . 4% ж. *RECORD-I/0 NJ* . 
«*PSEUDO-VARS*. YES х-ж-ж-ж-Х%-Жж-4-ж-ж . .* АМ ж. УЕ ж-ж-ж-ж-ж-ж-ж-ж-ж . 
. MULTIPLE .%........Х% CONSTRUCT * . ж. RECORD-I/O 2.22.2... MAKE LIB CALL * . 
ж. ASSIGNS . *PSEUDO-CODE FOR* . *. .% EQS FOR STREAM* . 
. „Ж *PSEUDO-VARI ABLS* . ж. .% * ORIENTED 1/0 ж . 
. ef BRE Жок RO о цк % ж. ж жак ок ЖОЖ . 
* NO . . * NO . . 
Ж . Жжжж Б Y 5 . 
м . * * . . . . 
. ..Х% Gl ж . . . . 
P + eX eosevecec.eccocecceccccccn . 
x жжжж : X 2 
2%, . .*. . 
Jl ж, жж 2 кке жж : 33° *. ЖЖ IGE RE KERR ERE » 
o* ANY ж. *IN-LNE МС, МІ, МКЖ . -Ж АМҮ ж. %5ТАҒАМ- 1/0 ММ . 
IN-LINE 7%, YES я : .*STREAM-I/0,*. YES ЖЖ қ 
*. FUNCTIONS аж... ХЖ CONSTRUCT * e fe OPENS OR .4........Х% MAKE LIB CALL ж x 
А .% *PSEUDO-CODE FOR* . ж. CLOSE .* EQS FOR STREAM* . 
*. .* *IN-LINE FUNCTNS* . ж. .* M ORIENTED 1/0 ж . 
*. .* doc ode КЕ x ж.ж еж H 
* NO . . ж NO . . 
а қ ЗЕ ЫЫ setae tives i + : 
РРР Sede aed Г, а 
x . 
.*. . 
K3 ж, 22221142252 ec tec 4 
.* ANY * рата FORM МЫ ым . 
. DATA ОЮ ж. YES %-Ж%-%-%-ж-%-ж-ж- . 
*. FORMAT с MAKE МЕГ CALL * . 
« LISTS „* *SEQS FOR DATA/ * . 
ж. .% ж FORMAT LISTS ж . 
ж. .* ЖЖ Ы 
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Chart LA. Phase LA Overall Logic Diagram 
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Chart LD. Phase LD Overall Logic Diagram 
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Chart MG. Phase MG Overall Logic Diagram 
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Chart MS. 


Phase MS Overall Logic Diagram 
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Chart NJ. Phase NJ Overall Logic Diagram 
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Chart NT. Phase NT Overall Logic Diagram 
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Phase NU Overall Logic 
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Chart OS. Phase OS Overall Logic Diagram 
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Table LA. Phase LA Pseudo-Code Scan 


Be айн алы ee ee ee ee pO MM m E ED а Senece m eT 1 
| |Маіп Processing| | 
| Statement or Operation Type | Routine | Subroutines Used | 
}----------------------------------- }--------------- І----------------------------------- 1 
|5сапв transfer vector | СТУ | МУЗА, SCINIT | 
----------------------------------- І---------------1-----------------------------------4 
|Searches for triple of interest to |SC1, SC2, 5С3 |5С0Т1, SCUT4, 5С200 | 
| user 1 | | 
ae ame р ннен a rs жөнін ОО aad 1 
|Moves input pointer to next triple |SC4, SC5, SC6, |5С200 | 
| | 5C7 | | 
Г-----------------------------------і--------------- І----------------------------------- 1 
|Moves input pointer over JMP ігір1е|5С8, SC9, 5С10А|5С51, MV20 | 
[апа pseudo-code | | | 
І-----------------------------------і--------------- І----------------------------------- 1 
(Ocana triple transfer vector | SACTN |5С20 to SC80 | 
Е a DU ESL ca estu Жаздан сы ыы да ОЗЫ ы асыл ы лал telum ad 
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Table LA1. Phase LA Routine/Subroutine Directory 


SC20 to SC80 


SC200 


---T 15" — — A — —— “ме жм ee «к» «ме a ee «ее «е «ке» «ке —— «ке 1 «е» ee чч» re «өс өк es ere «ше re AR ee ee «ы unas UMP UMD «еме cee AD ee «өл «ке ee ee re ee ee we ЧИР ee «ж» 


| bytes are not updated. 

| 

|5САМ text housekeeping routines. 

| 

{Bumps input text pointer over current triple, calls in next chained 
He ka block if end of block reached. 


1 
| Routine/Subroutine] Function | 
------------------ 4-------------------------------------------------------------------- 1 
|МУ1 |Моуев input text, with symbolic start іп РАВ1 and absolute address | 
| lof first byte not to be moved in PAR2. | 
| | | 
| Mv2 {Moves input text with symbolic start in PAR1; moves count in PAR2. | 
| | | 
| MV3 |Moves generated pseudo-code with absolute start іп PAR1, and count | 
| |ОҒ contiguous text іп PAR2. | 
| | | 
| МУЗА |Моуев generated triples, with parameters as for MV3. | 
| | | 
| MV4 |Moves input text, with absolute start in PAR1. | 
| | | 
| МУЗА |Моуев input text, where preceding output text may be pseudo-code. | 
| | 

| SACTN {Scans triple transfer vector. | 
| | | 
| SCINIT J Initializes input and output text blocks. | 
| | | 
|5СТУ {Scans transfer vector. | 
| | | 
| SCUT1 |Scans triple. | 
| 

| SCUT4 |Adds epilogue to JMP triple by inserting total count in triple and | 
| {moving two register status bytes to the end of the pseudo-code | 
l | block. | 
| | | 
|5С1 |Searches for triple of interest to user as indicated by entries in a| 
| |ТЕТ table. Moves scanned text to output string. | 
| | | 
| SC2 |Moves current triple to output string, increments input pointer and | 
| |searches for triple of interest to user. | 
| | | 
15С3 |Moves input pointer to next triple, then scans for triple of inter- | 
| Jest to user. | 
| | | 
| Scu |Moves input pointer to next triple, marking input block as WANTED. | 
| | | 
|5С5 {Moves input pointer to next triple, marking input text block as | 
| | FREE. | 
| | | | : | | | 
|5С6 |Моуев input pointer to next triple, with TRT for new triple. | 
| | | 
| SC7 |Moves input pointer to next triple, with TRT for new triple. | 
| | | 
|5С8 |Моуев input pointer over JMP triple, and then the triple with the | 
| | following pseudo-code is moved to the output text, the register | 
| |status bytes are updated, and the input pointer is updated to point | 
| [at the first triple following the pseudo-code. The input text block| 
| lis marked as 'wanted."' | 
| | | 
|5С9 |The input text block is marked as FREE, otherwise as for 5С8. | 
| | | 
|5С10 |Converts symbolic input text pointer in PAR1 to absolute, and if the] 
| jtext block referenced is no ionger the current one, resets the SCAN | 
| Jinput text parameters. | 
| | 
[SC10A |As SC8, but the pseudo-code is not moved, and the register status | 
| | 
| | 
| | 
| | 
| | 
| | 
1 


Table LB. Phase LB Pseudo-Code Initial 


СЕ ]Main Processing) |^ 00000000000 1 
| Statement or Operation Type | Routine | Subroutines Used | 
[Scans text for PROCEDURE, BEGIN,  |SCAN о [SCINIT, өсі; SC3, SCS (all in La), | 
|and ALLOCATE triples | |SFSCAN, ENDRTN, MAIN, SCAUTO | 
[scans automatic chain о. "со о ГСИН | 
[Processes INITIAL attribute aic- [MAIN и | 
{tionary items | | | 
ee ope vt noci UL CLE EE E D ———— ЗИНА TAM ажылы 1 
Table LB1. Phase LB Routine/Subroutine Directory 

|Routine/Subroutine| — Fancion | 
|ARRENT (LC) ——— [Declares INITIAL attribute for dynamic arrays. = = 1 
| CNSTWK Ете initialization triples. | 
ЕДЕН Е phase and scratch storage. | 
D БЕЗ INITIAL attribute dictionary items. | 
M Кен text for PROCEDURE, BEGIN, and ALLOCATE triples. | 
алты ch AUTOMATIC chain. | 
[КОСА [сага through second file statements. | 
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Table LD. 


Phase LD Pseudo-Code Initial 


nr rrr repr Т------"------------------------------ 4 


Main Processing | 


| Statement or Operation Type | Routine | Subroutines Used | 
a a Se pif — —Á——— ОР ln Sc eo cies tao cp i ime 4 
|5сапв the STATIC chain for any | STATIC | ENDRTN, ARRENT, CNSTWK, | 
уартарте with the INITIAL ИЕ! У: STRADD | 
каиын esas ia ca a AE E i —  '"-—— — — cee J 
Table 1р1. Phase LD Routine/Subroutine Directory 

- =» A «ки» чао «ть еле» «ки» «ба» ФИР UD «ки» «ир QUUD «мю «то «ыю «ке» фур «ию «лан «ано «он» «ки» «ән» «мю te «ки» aa кайырган Бк: ойды нанынан | 
[Routine/Subroutine| Function | 
———————Á— Ó—————————M————ÁÓ——— Á—— Ü———ÁM 1 


| ARRENT 
| 
| CNSTWK 


| 
| CNVERT 
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|Processes the initial value string for arrays. 


[Creates constant entries for initial values. 


| Сопуегіѕ decimal integer constants used as replication factors to 
|fixed binary. 


|Releases the phase and scratch storage. 


|5сапв array initial value string. 


[Makes slot for converted constant for arrays. 


| 
|Calculates the equivalent length in bits or bytes of a constant for 
|variable or adjustable length strings. 


| 
{Scans the STATIC chain. 


| Addresses elements of structures. 


|Locates initial value list. 


{Resets initial value entry. 


|Makes slot for converted constant for scalars. 


Ge — MÀ MÀ ce — «кәне a a —— «кке кы M P HMM «ммм» — M мш «кене M n «кем» емее» «ке» M жәе 


Table LG. Phase LG Pseudo-Code DO Expansion 


E. POS RESET E ROI AST ET i ee зан fey A А-А. gr CA РСА тА, рар а 1 


|Main Processing| 

| Statement or Operation Type | Routine 
-Һ----------------------------------- і----------- 
|5сапв text | 50002 
І----------------------------------- 1----------- 
|For iterative DO triples, pushes | 5G0011 
[down stack and examines control | 

| variable | 
REPE -—-—-—-------2------------- 
|Pushes down DO stack [160013 
——— —— a ea a ДАЛЕЕ і----------- 
|For iterative DO' and DO' triples, [160012 
|равпев up stack and removes top | 

jentry | 
----------------------------------- і----------- 
|For СУ triples, reverts to normal [160015 

| scan | 

Bee tO ig ee ee қаны МЕ р E арти 
|For ТО -and ТО" triples, examines 1160017 
jargument and assigns to temporary, | 

Jif necessary | 

Sosa ewe eee E далда сыла — %----------- 
|For BY and ВҮ" triples, examines 1160019 
jexpression and determines signs of | 

|constants; assigns variables to | 

| temporary | 

——— —— ——— —— і----------- 
|For WHILE and WHILE" triples, marks|LG0021 
|оор as iterative; generates test | 

| triples | 

fr — G—— H— £----------- 
| 00 EQUALS triples, assigns expres- |LG0024 
|sion as a temporary; generates code| 

|to control loop if end of specifi- | 

| cation | 

MERO МЕИ шешшш ЕШ нарды лалы eae і----------- 


| stack | 


Be E Rr SPORE NEM DEO SR ы + 
{Generates loop control code | CODE2 
| | 

+ 
|Tests expression result type and | TESTOP 
lassigns to temorary if not constant| 

4 


Section 3: 


4 
| 
} 
| 
| 
| 
4 
| 
4 
| 
| 
| 
4 
| 
| 
4 
| 
| 
| 
Т 
| 
| 
| 
| 
} 
| 
| 
| 
1 
| 
| 
| 
| 
4 
| 
| 
4 


Subroutines Used 


аа 1 
SC1 (LA) | 
бт стал 43 512224225 1 
PSHDWN, SC5 (LA), CVSCAN | 
| 
| 
адалы ды ыса салла ое ы; 1 
PSHDWN | 
Е ЕАН, REIS TEES МЕНЫ, 4 
EXPEVL, POPUP | 
| 
| 
— cae at Ыыы шышы 1 
EXPEVL | 
| 
€—— ————— MERGE NISI сады 1 
EXPEVL, TESTOP | 
| 
| 
Beanie ас ee a DIRE RS ЫЫЫ” 1 
ЕХРЕУІ,, ТЕ5ТОР | 
| 
| 
| 
ЕО ВИН пере аы ышы эш ERR Ren 4 
CODE3 | 
| 
| 
uL EE EEEE RE E Tee Aaa Ae ee TOE oS REPRISE 1 
CODE2, TESTOP | 
| 
| 
| 
——— шшш ы ш ee ees 4 
СУСОРУ, PSTYPO, PSTYP1 | 
CVCODE, DICENT, ‘COMPAR, SWITCHP, | 
LMV3AU, LMV3A5, PSTYPO, PSTYP1 | 
DICCHN, LMV3A5 | 
| 
| жаарын | 
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Table LG1. 


г------------- 
| Routine/Subroutine 


| CODE2 

| conis 

| COMPRE 
atone 
coe 
fone 
reca 


| 
| DICENT 


| 
|EXPEVL (LH) 


| 
[50000 


{Initializes phase. 
| | 
1160002 |5сапв text. 
| 
1160010 |When EOP triple encountered, releases scratch storage апа passes 
| [control to next phase. 
| | 
1160011 |For iterative DO triples pushes down stack and examines control 
| | variable. 
| | 
|60012 |For iterative DO" and DO' triples pushes up stack and removes top 
| jentry. 
| 
1160013 {Pushes down DO stack. 
| 
1160015 |For CV triples reverts to normal scan. 
| | 
1160017 |For ТО апа TO" triples, examines argument апа assigns to temporary 
| Jif necessary. 
| 
1160019 |For BY and ВҮ" triples, examines expression and determines sign of 
| jconstants. Assigns variables to temporary. 
| 
| 150021 |For WHILE and WHILE' triples, marks loop as iterative and generates 
| jtext triples. 
| 
{1150022 [When WHILE' triple encountered, branches to generate comparison 
| jtriples. 
| | 
[160024 |For DO EQUALS triples, assigns expression to a temporary: generates 
| |code to control loop if at the end of specification. 
| | 
| LMV3AU |Moves triples to output. 
| | 
| LMV3A5 |Moves one triple to output. 
| | 
| POPUP |Removes item from DO stack. 
| | 
| PSHDWN |Pushes down DO stack and initializes new stack entry. 
| 
| PSTYPO/PSTYP1 {Test pseudo-variable argument type. 
| | 
| SWITCHP |Changes DO stack text markers. 
| | 
| TESTOP ]Tests expression result type and assigns to temporary if not con- 
| | stant. 
"АВЕ no кете a ea a aN ыы ысымы kN E Ый 


T 
| 


Phase LG Routine/Subroutine Directory 


Function 


|Generates loop control code. 


|Generates loop control code for WHILE. 


|Generates triples to test upper limit control expression. 


|Moves text from DO stack to output. 


| 
|Moves input text to DO stack. 


{Sets up control variable text in DO block. 
]Chains dictionary entries. 
| 


|Макев a dictionary entry. 


|Analyzes expression to determine result type. 


1 


к... ағы» SS «ке ne жәе «кете «кеме «е-е» жәке» ea «еее жәнее «еее «меке M — À— жәнее алны M — кенес UM — P ap «алғы» тышта ED емее жеке du qum атто SS келе» кше «еее «еке жымы кеше «еше uem anum SE шек» «жама» auum «кмм» SS жамы өлем» жеке eS жы» «еее және т-не» «кезе» жылым» өзекке «айы» алым» 


Table LS. Phase LS Pseudo-Code Expression Evaluation 
SS a a M mE не 


а шанасына ЕН: 1 


|Маіп Processing| ! 


| Statement or Operation Type | Routine 


[Scans text and branches to | LBO 
| processing routines; marks phase L| 
jand releases control to next phase | 
jCalculates result type and 
[generates pseudo-code for +, -, *, 
|/, prefix +, prefix -, compare 
|operators, and ADD, MULTIPLY, and 
{DIVIDE functions 

[Calcuiates result type for string 

| operators 

|inserts symbolic register in sub- 
|script triple and stacks result 
|Inserts workspace description in 
|TMPD triples after function, and 
[stacks result. Stacks arguments 
|for ADD, MULTIPLY, and DIVIDE func- 
|tions. Adds pseudo-variable mark- 
|есв to stack 

|Calculates results types and 
|generates pseudo-code for ** opera- 
|tor. Generates calling sequences 
|to library subroutines for complex 
[arithmetic 


= 


ARITH, 


L 
|Calculates target type and 
|generates assignment triple for 
|conversion; sets dictionary entries 
|for constants 

|Interchanges operands; optionally 
|loads first operand 


| 
! 
t 
| 
| 
| 
і 
| 
| 
| 
і 
| 
| 
| 
і 
| 
| 
| 
| 
I 
і 
| 
! 
| 
1 
! 
! 
| 
! 
| 
! 
1 
| 
[ 
t 


|Obtains free floating or fixed 
larithmetic register; stores it, if 
| necessary 

|Adds items to, and releases items 
|from intermediate result stack 
|Generates calling sequence for 

| complex * and / operators, super- 
|vises complex arithmetic 


т" — — — «е — че —— «же — —— —— «ме — — — — — — A — —— — e — e )— ель «ме — — — «ы --- 
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Section 3: 


— — —À M — À— == ene — — 


| Subroutines Used | 


келесі ae Ser ee a ee eee 1 
|ARITH, FUNCT, 1771, MOVEPC, | 
|5САМ (LA), STRING, SUBSPT | 
| | 
| ADDSTK, ASSIGN, CONVT, DICDES, | 
|EXPONT, GENRPD, GETADX, GETFR, | 
|GETGR, MOVEPC, RELSTK, SETCPX, | 
| STRING, SWOP | 
| | 
наан е зена ааа а 4 
11221, МОУЕРС, STALRG | 
| | 
{=======ш=====-= т ишш нш шышы 1 
|ADDSTK, DICDES | 
| | 
Еее шешшш ныш: 1 
|ADDSTK, ARITH, DICDES, GETFR, | 
|GETGR, SCAN | 
| | 
| 1 
| | 
| | 
| SORIA SEGA EEG E a CM E EE 1 
| ADDSTK, ARITH2, CONVT, GETADX | 
|МОУЕРС, STALRG, SWOP | 
| | 
| | 
| | 
Е ыы зл a 4 
|АО05ТК, ASSIGN, GETFR, MOVEPC, | 
| STALRG | 
| | 
| | 
+—-—---------------------———------- 1 
| GETADX, GETFR, GETGR | 
| | 
S енатантанесаныыыынацаыоянынәшыыа 1 
|GETADX, STALRG | 
| | 
| | 
О енін И aa шшен шы a шы 1 
| None | 
| | 
eee ene ae eae И 1 
|ЕХРОМТ, GETADX | 
| | 
| | 
ав О ш crea ә шышы ныш 1 
|RELSTK, SCAN | 
| | 
Жылы сылыт экшн a iE ri 1 
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Table LS1. Phase LS Routine/Subroutine Directory 

frst tee ттт qne сананы noce TE құлан eee кім тінде рын Moe 1 
| Routine/Subroutine | Function | 
------------------4--------------------------------------------------------------------4 
| ADDSTK (LT) [Adds items to intermediate result stack. 


| 
| ARITH/ARITH2 (LT) 


ENRPD 


ETADX 


Q б Q т 


PSI {Adds pseudo-variable marker to stack. 

RELSTK (LT) |Releases items from intermediate result stack. 

SETCPX (LU) {Generates calling sequence for complex * and / operators; supervises 
| complex arithmetic. 

STALRG Idenerates pseudo-code to store all arithmetic registers currently in 
use. 

STRING |Calculates result types for string operators. 

SUBSPT |Inserts symbolic register in subscript triple and puts result in 
| stack. 

НОЕ ин operands and optionally loads first operand. 


L 
L 
LBFL1 (LT) 
L 
M 


XC1 (LT) 


(LT) 


ETFR/GETGR 


BE21 (LT) 


[Calculate result type and generate code for +, -, *, /, prefix +, 
|prefix -, compare operators, and ADD, MULTIPLY, and DIVIDE func- 
|tions. 

| 


|Generates ап assignment triple and TMPD in the output text. 


|Sets up dictionary entry for constant operand. 


{Calculates target type and generates assignment triple for conver- 
| sion. 


|Сопвегасев operand description from dictionary entry. 
|Marks phases wanted/not wanted and releases control. 


{Calculates result type and generates pseudo-code for ** operator, 
Jand generates calling sequence to Library subroutines for complex 
| arithmetic. 

| 

{Inserts workspace description іп TMPD triples after function, and 
{stacks result. 


| Inserts workspace description in TMPD triples after function, and 


|stacks result. Stacks arguments for ADD, MULTIPLY, and DIVIDE func- 


|tions. Adds pseudo-variable markers to stack. 


|Generates fixed binary pseudo-code. 


|Generates pseudo-code for packed decimal operations. 
|Sets up address of pseudo-code instruction. 


|Obtain free floating or fixed arithmetic register; store it, if 
| necessary. 


|5сапв text and branches to processing routines. 
[Tests for operand conversions and constants. 


|Generates floating pseudo-code. 


|Inserts TMPD triples after zero operands. 


|Moves pseudo-code to output text. 


O————————————— oL ————— ————————ÓÀ— —— A ————————Ó—— (ed 


Table LV. 


Phase LV Pseudo-Code inka Utilities 


Панна О pee танін лайн данадан awe fay TT EE SEDET I ME AU Li em Mp oat анадан ағара нк ЧЕН ЕЕЕ а БА Т БЕЙ ан анасын 1 


[Main Processing| 


| Statement or Operation Type | Routine | Subroutines Used | 
----------------------------------- I ————— — -=-= 
[|Initializes module; releases con- |STRUTO | None | 
|Еко1 to next module | | | 
~--~-------------------------------}-----=--------- І-----------------------------------і 
|Converts data item to string; cal- |STRUT1 {SCAN (LA), STRUT2 | 
|culates string length | | | 
~-----------------=-----~----------}--------------- %-----------------------------------4 
|Produces a string dope vector des- |STRUT2 | None | 
[cription from a standard string | | | 
[aec i оп | | | 
VOR EUR aso "caduti асынатал анда шалыс ea ee Se EEA Lornzlqetcoettccclncttcemcccd 
Table LV1. Phase LV Routine/Subroutine Directory 
M ———— e ——— рар —— ВН —— M PUE UR PPS 1 
[Routine/Subroutine| Function | 
------------------|-------------------------------------------------------------------- 1 
| LSUT17 |Tests whether string length is greater than 256, and if necessary | 
| |generates fixed length calling sequence. | 
| | | 
| LSUT22 |Tests whether string dope vector result is required. | 
| | | 
| LSUT26 |Generates any assignment and TMPD triples. | 
| | | 
| LSOT27 |Sets up assignment and TMPD triples. | 
| | | 
| STUTO |1 Initializes module; releases control to next module. | 
| | | 
|5ТЕ0Т1 |Converts data item to string type; calculates string length. | 
| | | 
| STRUT2 |Produces string dope vector description from standard string des- | 
| | cription. | 
| | | 
|25Т0Т1 |Transfer vector to STRUT1. | 
| | | 
| ZSTUT2 Trnansker vector to STRUT2. | 
Бс ааа сан ы ee Ó———— ^ — a — E et ee oe ee J 
Section 3: Charts and Routine Directories 203 


Table LW. 


| Initializes phase, scans text and 
jbranches to processing routines; 
|releases control to next phase 
|Processes TMPD triples. Arithmetic| 
|type TMPDs are ignored. String 
|TMPDs are replaced by the top item 
|from the string stack 

| Processes function and function 
jargument triples. Arithmetic type 
|functions are ignored. Dictionary 
jentries are created for the results 
[ОЁ string type functions. А 
|library calling sequence is gener- 
jated for the BOOL function using 
|the mechanism for packed bit opera- 
|tions. The result descriptions are 
[added to the string stack 


{Processes subscript triples. 
{Arithmetic type subscripts are 
lignored. A symbolic register or 
|workspace offset is added to string 
|type subscript triples and the 
|string description is added to the 
|string stack 


те — же — «мә «лә» «ме M ee «ли» шшш A e «ее «көке —— + «м» «а» «кас «кше i «шо «и» «ле» «ке» À— MP = 


|AND, OR, NOT and comparisons with 
|string type operands. For simple 
|савев, in-line pseudo-code is gen- 
jerated; otherwise calling sequences 
|to the library are generated. The 
[results are added to the string 


a — — ао —— «лы» M e ee ato «ғы «м» I "P «әже € «ке» e «к — —— — "— m өзе — — «м «ше  — «не e oe 
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Phase LW Pseudo-code String Handling 


TMPDT 


а eee шш 


-— — —— — «еее À — е-е «ке еше «-- ee «м» 


—=- ——— «ее «әле — ÍQÀ P «ка» «ке» «ы» «ки» «ки» e «шы» en шш эши; эше MED о «кк» P «ла» сыл «ки» «қы» 


|FUNPT, SCAN (LA), 
|SUBSPT, TMPDT 


STROP, 


|ADDSTK, DICDES, GETADS, GETMPD, 
|MOVEPC, RELSTK, SCAN (LA), SETMPD, 
| STROP 


ADDSTK, DICDES, SBGNOR, SCAN (LA) 


+ a -- 


|ADDSTK, DICDES, GETADS, GETADX, 
|GETMPD, MOVEPC, MOVSEL, RELSTK, 
| САМ, STRUT (LV) 


fr mem tee es mee ene 


— — «әке «е» «же «шә «шә we oe ee «ие «же re ee «ж» wn «ка» «ж» ee чыш 


um вы о mee 


lee ee ae quu eet ee  —— жне» 


Table LW1. Phase LW Routine/Subroutine Directory 


гГ------------------ 
| Routine/Subroutine 


— — — «ке «ле» же «ше «ы» «ке» À— өле ce «қ» «ж» «ке» «әке me «ле» «ее «лы» «кие € — «ле» «ше «к» жы» «ше — — «ее» «е «ке «ә «ж» ae ама «фин «ле «ме ae «м» we «ж» «ше we re «ль» re ee жәе ee «еке «лы «ы» «ше «ен «лм» «ше ee «и» «ие «жен m ee oe ee ee ee ee «жм» 


| ADDSTK 


| 
| BEGIN 


|DICDES (LX) 


| 
| FUNPT 


| 

| FUNT 

| 

| GETADS/GETADX (LX) 


| 
| GETMPD 


T 


Function 


|Adds strings to the intermediate string result stack. 


[Main controlling routine for phase. 


|Constructs operand description from dictionary entry. 


| Processes 


| Processes 


result returned by functions. 


funtion and function argument triples. 


}Construct address part of pseudo-code instruction. 


|Constructs operand description from TMPD triples. 


|Terminates phase at end of program. 


Library calls for string operations. 
pseudo-code for NOT operation. 
pseudo-code for concatenation operation. 
pseudo-code for comparison operation. 
pseudo-code for AND/OR operation. 


pseudo-code to convert to string. 


|Moves pseudo-code from buffer to output text. 


[Moves SELL triples to output text. 


|Removes strings from the intermediate string result stack. 


[Gets next symbolic register. 


|Constructs TMPD triples from description. 


|Processes string operations CONCAT, AND, OR, NOT, and comparisons 


jwith string type operands. 


| | 

| LB 

| | 

| LIB1 |Generates 
| | 

| LIL2 |Generates 
| | 

| LIL3 |Generates 
| | 

| LIL6 | Generates 
| | 

| LIL8 | Generates 
| | 

|L11 | Generates 
| | 

| МОУЕРС 

| | 

| MOVSEL 

| | 

| RELSTK 

| SBGNOR 

| | 

| SETMPD 

| | 

| STROP 

| 

| | 

| SUBSPT | Processes 
| | 

| TMPDT | Processes 
| 

{25 


Llll-————————————--— ............-..-.-.-.-.-.-------------------------------------------------------.-.---..--.---..--“-------..----..- 


subscript triples. 


TMPD triples. 


|Sets flags for triple types. 


Section 3: Charts and Routine Directories 


— ано a ap ae «к» mU Dm LITT UIT e m mmm ee ee Пайда | 
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Table MB. Phase MB Pseudo-code Pseudo-Variables 


a a м lk a Meme eae ратты ME M M DE 202-525 0552250 1 
|Main Processing | 


| Statement or Operation Type | Routine 


— ue p «же» «еле — ee ee «ше» «ла» ee «шз et «ке» GUP qup «ка» AD «ми» ee qum (Че «лыс uum ww ee 


«=> UP. «өне AD «ны» «өм» сш» «әл» «ке» qus «км» UT AD щын Vm «ши» эш» «лы» «кә AED «жие» «ңе» «и» «ки» uum dem uum «ке» «жәе «и» «ке» «ли» p «жы» «ше «ф» amm «ле» «ки» «ла» «әк» «ке» «ам» «ж» «ән» «м» «м» 


|PSI operator; starts new entry іп |МВ0011 
[stack for pseudo-variable | 


|Р5І" operator; completes stack МВ0012 
[еп©гу and generates code for data 

jiist items 

[Assign completes stack and rescans |МВ0013 


|асоар of assignments, putting tar- 
ісе: descriptions out in correct 
|sequence; generates code for 
[pseudo-variables in stack 
p----------------------------------- 
|Multiple assign; places only target|MB0015 
|descriptors in stack 


| 
ыы лады TS 4 
|Constructs pseudo-variable stack |МВ0020 
| entry | 
ыы а Ал a E a aes + 
{Places temporary descriptor in | OUTMPD 
| out put | 
азар ша naui ape EAP a ыма аа PE + 
|Gets temporary workspace for | TARGET 
|pseudo-variable, if necessary | 
Poe co ee ee а сас S dc шн шш 1 
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4 aum apum жш «әк» «зе «е» «хе» «ке M «м 


—  — À—— еее «м» = = = 


Subroutines Used 


------- 
e 
О 
HE 
— 
t 
p 
— 


SWITCH, TARGET 


DRFTMP, MMV3A5, MVTMPD, OUTMPD, 
TARGET 


—-— — «кек «км» «ке» «м» «е чыш — A «мл» —— A MÀ ——À ee ee «ке «уль «кыз ee oe rw Чы» чн ee ee 


мы 


-ф- 


Table МВ1. Phase МВ Routine/Subroutine Directory 


ан саны А ООС Аа C Pa d ы ышы шыш Е еі ссе сс 
| | 


Routine/Subroutine Function 


ce «лы» «ее M a р әке «кке «ке «ки» «ке» a «лы» «шә «ме — —— RÀ «е» «иы» «ми» «е» — «ла» «ше» «Dam «ғаз шшш «ка» VEND «кы» we ee ow nn ын» шш» ee UD: UD oo «өк» 


| DRFTMP 
Ше 
ӨТЕН 
sued 


| 
| МВ0010 
| 


| 
|МВ0011 


| 
| МВ0012 


МВ0013 


|МВ0014 
20026 
ТТ 
FOTO 
| 81346 
| 81318 
80350 
УА 
БЕРЕ 
cure 
ТРИЯ 


| 
| TARGET 
L 


|Makes temporary descriptor from a dictionary reference. 


[ Орсаіпѕ workspace to accommodate a variable of given type. 
{Scans source text. 
[Multi-switch for triples of interest. 


[Оп reaching end-of-text marker, releases remaining block, and 
|releases control of phase. 


|PSI operator; starts new entry in stack for pseudo-variable. 


|PSI' operator; completes stack entry and generates code for data 
|list items. 


|ASSIGN; completes stack and rescan group of assignments, putting 
|target descriptions out in correct sequence, generates code for 
|pseudo-variable in stack. 


| 
|Multiple ASSIGN; places any target descriptors in stack. 
| 


|Constructs pseudo-variable stack entry. 


|Resets input pointer to start of sequence of ASSIGNS. 


|Rescans ASSIGNS and associated TMPDS from stack in reverse order. 
[Tests for end of stack. 
|Tests for pseudo-varaible TMPD. 


|Generates code for pseudo-variable. 


|Moves one triple to output. 


|Places temporary descriptor in stack. 


|Places temporary descriptor in output string. 


|Changes scanning table. 


|Obtains temporary workspace for pseudo-variable, if necessary. 


1 
| 
| 
t 
| 
| 
| 
t 
! 
1 
[ 
| 
! 
! 
! 
| 
| 
і 
t 
| 
[ 
| 
| 
| 
| 
і 
і 
| 
| 
| 
| 
і 
[ 
і 
| 
і 
1 
і 
і 
| 
[ 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
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| 
| 
| 
| 
| 
! 
| 
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| 
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t 
| 
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Table MG. 


Phase MG Pseudo-Code In-Line Functions 1 


poemescceemo ue mese чаа TUS а Tq roc UT uec i aa a E 1 
|Main Processing] | 


| Statement or Operation Type | 


І----------------------------------- r eae эы и: qoe ------------------------- 1 
|PHASE LA (SCAN) | Мопе | 


[Scans text 


{Builds up function stack 


}----------------------------------- і--------------- 1----------------------------------- 1 


| LFARIN 


Routine | 


Subroutines Used | 


|Ва1145 up argument stack | LFCOM | None | 
а о, Ба Фо ee ee ее 1 
|Move generated code to output | LFMOVE [МУЗ (LA) | 
| block. . | | | 
----------------------------------- %---------------4-----------------------------------1 
{Generates in-line code | LFEOF2 |ABBFLL, ABBFLS, ABSFB, ABSFD, | 
| | |ALLOC2, CEILB, CEILD, CEILL, | 
| | |CEILS, CMPLXB, CMPLXD, CMPLXL, | 
| | | CNASTR, CNVINT, CONJGB, CONJGD, | 
| | |CONJGL, CONJGS, ERRFUN, FLOORB, | 
| | | FLOORD, FLOORL, FLOORS, IMAGB, | 
| | |IMAGFD, IMAGL, ІМАС5, REALB, | 
| | |REALFD, REALL, REALS, SBGTNR, | 
| | | TRUNCB, TRUNCD, TRUNCL, TRUNCS, | 
| | |UNSPEC, UTTEMP | 
es oe ыл тамын ы ИКЕН ee ыы a E ene ыл i aN ы 4 
Table MGi. Phase MG Routine/Subroutine Directory 

геше SS Етна et eS D Ss Se ШЕ ашышын Шаны tS eres 1 
| Routine/Subroutine | Function | 
------------------ І--------------------------------------------------------------------1 
| ABBFLL {Generates in-line code for ABS function with long floating-point | 
| | argument. | 
| | | 
| ABBFLS |Generates in-line code for ABS function with short floating-point | 
| | argument. | 
| | | 
| ABSFB |Generates in-line code for ABS function with fixed binary argument. | 
| | | 
| ABSFD |Generates in-line code for ABS function with fixed decimal argument. | 
| | | 
| ALLOC2 |Generates in-line code for ALLOCATION function. | 
| | | 
|CEILB (MH) |Generates in-line code for the СЕТЬ function with fixed binary argu-| 
| | ment. | 
| | 
| CEILD (MH) [Generates in-line code for the CEIL function with fixed decimal | 
| | argument. | 
| | | 
|CEILL (MH) |Generates in-line code for СЕТЬ function with long floating-point | 
| | argument. | 
| | | 
|CEILS (MH) |Generates in-line code for the CEIL function with short floating- | 
| |point argument. | 
| | | 
| CMPLXB |Generates in-line code for COMPLEX function with fixed binary | 
| | argument. | 
| | | 
| CMPLXD |Generates in-line code for COMPLEX function with fixed decimal argu-| 
| | ment. | 
| | Тк кке к 
| CMPLXL {Generates in-line code for COMPLEX function with long floating-point | 
| jargument. | 
| | | 
| CNASTR {Constructs assignment triple and associated TMPDS. | 
| | | 
| CNVINT |Converts a decimal integer constant to fixed binary. | 


і 
| 
| 
! 
| 
i 
і 
| 
| 
| 
і 
| 
| 
| 
і 
1 
| 
і 
- 
! 
| 
| 
| 
| 
і 
| 
| 
| 
| 
! 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
! 
| 
| 
| 
| 
| 
| 
| 
| 
і 
| 
| 
| 
! 
! 
| 
t 
| 
| 
і 
| 
! 
| 
| 
| 
| 
| 
| 
| 
і 
і 
| 
| 
| 
1 
! 
[ 
! 
t 


Table MG1. Phase MG Routine/Subroutine Directory (cont'd) 
[етсе ес ышыра р балан а ЖАЫ БЕ а ЗК раа наа а оаа ra ыла E ITI онан ис ад One анал ee ee eiim 
| Routine/Subroutine | Function | 
І------------------ І----------------------------------------------- --------------------- 1 
| CONJGB {Generates code for the CONJG function with fixed binary arguments. | 
| | | 
| CONJGD |Generates in-line code for the CONJG function with fixed decimal | 
| | arguments | 
| | | 
| CONZGL {Generates in-line code for the CONJG function with long floating- | 
| | ро1пЕ arguments. | 
| | | 
| СОМ265 {Generates in-line code for the CONJG function with short floating- | 
| |point arguments. 4 | 
| | 
| ERRFUN |Aborts if Phase IM discovers an error in a function. | 
| | 
| FLOORB (MH) |Generates in-line code for the FLOOR function with fixed binary | 
| |argument. | 
| | 
| FLOORD (MH) {Generates in-line code for the FLOOR function with fixed decimal | 
| jargument. | 
| | 
| FLOORL (MH) |Generates in-line code for the FLOOR function with long floating- | 
| |point argument. | 
| | 
| FLOORS (MH) |Generates in-line code for the FLOOR function with short floating- | 
| {point argument. | 
| | | 
| IMAGB |Generates in-line code for IMAS function with fixed binary argument. | 
| | | 
| IMAGFD |Generates in-line code for IMAG function with fixed decimal | 
| jargument. | 
| | | 
| IMAGL |Generates in-line code for IMAG function with long floating-point | 
| | argument. | 
| | | 
| IMAGS |Generates in-line code for IMAG function with short floating-point | 
| largument. | 
| | | 
| LFARIN |Builds up function stack. | 
| | | 
| LFARI1 |Continues scan for in-line functions. | 
| | | 
|ЕСОМ |Builds up argument stack. | 
| | | 
| LFDR |Unpacks dictionary reference of argument when argument triple found. | 
| | 
| LFEOF2 |Calls subroutines to generate in-line code. | 
| | | 
| LFEOF3 |Depending on start of argument list, branches to produce in-line | 
| | code. | 
| | : ОИ —À | | 
| LFIGN |Removes triple from text if inside an in-line function. | 
| | | 
| LFMOVE |Moves generated code to output block. | 
| | 
| LFSPEC {Branches if IGNORE triple or not an in-line function. | 
| | 
| REALB {Generates in-line code for REAL function with fixed binary argument. | 
Бы саты ee ыл ыы Же оса ———— ————— —— ————— le асса айы Шы ec 1 
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Table MG1. 


Phase MG Routine/Subroutine Directory (cont'd) 


[utt pec ET п cene UTE 1 
| Routine/Subroutine| Function | 
а CCE EEL REESE Sse eee заара тортун те eed 
| REALFD |Generate in-line code for REAL function with fixed decimal argument. | 

| | 
| REALL [Generate in-line code for REAL function with long floating-point | 
| | argument. | 
| | | 
| REALS |Generates in-line code for REAL function with short floating-point | 
| | argument. | 
| | | 
| SBGTNR |Get next available symbolic register. | 
| | | 
| TRUNCB (MH) [Generates in-line code for the function TRUNC with fixed binary | 
| | argument. l 
| | | 
| TRUNCD (MH) |Generates in-line code for the TRUNC function with fixed decimal | 
| | argument. | 
| | | 
| TRUNCL (MH) |Generates in-line code for the TRUNC function with long floating- | 
| jpoint arguments. | 
| | | 
| TRUNCS (MH) {Generates in-line code for the TRUNC function with short floating- | 
| |point argument. | 
| | | 
|UNSPEC (MH) {Generates in-line code for the UNSPEC function. | 
| | | 
| ОТТЕМР |Gets a required amount of temporary work space. | 
cn Tc Rc ОЦЕНЕНИ ВАНЕСА RP TP M НА J 
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Table MI. Phase MI Pseudo-Code In-Line Functions 2 


fo ae ee е [Main Processing] = 1 
| Statement or Operation Туре | Routine | Subroutines Used | 
[Scans теж [PHASE LA (SCAD|None — | 
[Builds up function stack РАН о м | 
[Builds up argument stack = сом о Т” | 
[Move generated code to output block|LFMOVE = мз (LI) — 00 | 
[Generates in-line code 0 |LFEOF2 о |MAXB, MAXD, MAXL, MAXS, MINB, MIND, 


| 
|MINL, MINS, MODB, MODD, MODL, MODS, | 
TROUNDS, ROUNDD, ROUNDL, ROUNDS | 


Table MI1. Phase MI Routine/Subroutine Directory 


———————————— ——————————— — ————————————— 1 
| Rout ine/Subroutine] Function | 
шасын асы сы с ВЕНЕ ЕР ИЗО ЗВЕНА Е Е ылы E ЧЕ 1 
| LFARIN {Builds up function stack. | 

| 
| LFCOM |Ва1145 up argument stack. | 

| 
| LFEOF2 [Calls subroutines to generate in-line code. | 
| | | 
| LFMOVE |Moves generated code to output block. | 
| | | 
| MAXB/MINB (MJ) [Generate code for MAX/MIN function with fixed binary arguments. | 
| | | 
|MAXD/MIND (MJ) |Generate in-line code for MAX/MIN function with fixed decimal | 
| larguments. | 
| | | 
|MAXL/MINL (MJ) |Generate in-line code for MAX/MIN function with long floating-point | 
| | arguments. | 
| | | 
| MAXS/MINS (MJ) [Generate in-line code for MAX/MIN function with short floating-point| 
| | arguments. | 
| | | 
|MODB (MJ) [Generates in-line code for MOD function with fixed binary arguments. | 
| | | 
| MODD (MJ) |Generates in-line code for MOD function with fixed decimal argu- | 
| [ments. | 
| КЕМЕК TT | | | 
|MODL (MJ) |Generates in-line code for MOD function with long floating-point | 
| | arguments. | 
| | 
{MODS (MJ) jGenerates in-line code for MOD function with short floating-point | 
| Jarguments. | 
| | | 
| ROUNDB |Generate in-line code for ROUND function with fixed binary argument. | 
| | | 
| ROUNDD |Generates in-line code for ROUND function with fixed decimal argu- | 
| | ment. | 
| | "m NE ; ; | 
| ROUNDL [Generate in-line code for ROUND function with long floating-point | 
| | arguments. | 
| | 
| ROUNDS |Generate in-line code for ROUND function with short floating-point | 
| jarguments. | 
А a a a шы a i ыы ыы ВЕ ee 1 


Section 3: Charts and Routine Directories 211 


Table MK. Phase MK Pseudo-Code In-Line Functions 3 


Pare eo carer eee, ee тше ыштын qoi c a UIT D a pia ee gt Gory за АЧЫН Чал ааа 1 

|Main Processing| | 
| Statement or Operation Type | Routine | Subroutines Used | 
----------------------------------- І---------------І-----------------------------------1 
{Scans text |PHASE LA (SCAN) | Мопе | 
----------------------------------- %---------------4-----------------------------------1 
|Ваі145 up function stack LFARIN | None | 


5 «ке — — о а риа атта ии бан «ы» eS «лы» е-е» ce «ке «ме M чыш чы өл» өле — «шы ань o «ме «шә «ғ» — «ме «ме «мә чить 


LFEOF2 |DIM, HBOUND, LBOUND, LENGT, SIGNFB, | 
|SIGNFD, SIGNL, SIGNS | 
sam ume ee Sa eu M dolce £e esa em mn um qum AU QE Qus ава: 


Table MK1. Phase MK Routine/Subroutine Directory 


|Routine/Subroutine| = = = Function | 
hm ea o e a ааа ык | 
| HBOUND nune. code for HBOUND function. | 
| LBOUND mem code for LBOUND function. | 
Т. (Зады шар code for LENGTH function. | 
Бе ТЕТЕ up function stack, | 
ЗЕЕ" Бана up argument stack. | 
| LFEOF 2 |Са11$ subroutines to generate in-line code. | 
‘uate (ТЕГЕН generated code to output block. | 
| SIGNFB {Generates code for SIGN function with fixed binary argument. | 
| SIGNFD ene code for SIGN function with fixed decimal argument. | 
ен ЕРЕ code for SIGN function with short floating point ешын 
[22606 [Generates code for SIGN function with short floating point argument. | 
А a a et tae ee ee dir s P M 1 
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Table ML. Phase ML Pseudo-Code Calls and Functions 
ae ea какыра MM EU E Mc LM E Ed qoem ree quem Umm a a Ir ce аі сін TS EE 1 
]Main Processing | | 
| Statement or Operation Type | Routine | Subroutines Used | 
}----------------------------------- І--------------- %------------- ---------------------- 1 
|5сапв text |PHASE LA (SCAN) | Мопе | 
шел €— —— —— сысы 4л Ó— — —À— €—— WI 1 
| Identifies argument of procedure | FPFNAR | None | 
| invocation | | | 
----------------------------------- %--------------- і---------- ------------------------- 1 
|Бе1есів generic built-in function |ЕРВІЕ | FPARD1 | 
----------------------------------- І---------------і1-----------------------------------1 
ренге PL/I generic entry name | FPGAR |FPARD2, FPARD3, GNSECO | 
a ee шыла алысы ЕН eee eee Á———Y——— —— ағы 

Table ML1. Phase ML Routine/Subroutine Directory 

a сыны pt Е as PE mp reer ——— — — À——Mrá— € 1 
| Routine/Subroutinr| Function | 
—— ——— ——————— — Á€———ÁÁ—— T — m! PP MP eee rd шып 1 
| ЕРА01 |5сапв for next argument. | 
| | 
| FPARD1 [Obtains parameter descriptions relating to built-in function argu- | 
| | ments. | 
| | | 
| FPARD2 jObtains successive parameter descriptions relating to the entry | 
| jdescription of a PL/I generic procedure. | 
| | | 
| FPARD3 |Obtains and stacks full parameter description of a PL/I generic | 
| | procedure. | 
| | | 
| FPBIF |Selects generic built-in functions. | 
| | 
| FPEPCO |Constructs an entry parameter. | 
| | 
| FPFNAR | Identifies arguments of procedure invocations. | 
| | | 
| FPGAR |Selects PL/I generic entry name. | 
| | | 
| GNFM2 |Replaces generic reference testing for uniqueness. | 
| | | 
| GNSECO |Makes entry in stack of parameter descriptions. | 
n ee ees rs EE S ыы ыы tas lb a Sa an rsa ш 1 

Table ММ. Phase ММ Pseudo-Code Calls and Functions 
Fete eS ae yee ee pou ne ae Ton ee C PEE: р 1 
|Main Processing] | 
| Statement or Operation Type | Routine | Subroutines Used | 
----------------------------------- І---------------і-----------------------------------41 
|Scans text | PHASE LA (SCAN) | None | 
----------------------------------- %---------------4-----------------------------------і 
|5сапв list, counts arguments and | CFCALL |CFARID, CFFBIR, CFFDVS, CFMVTR, | 
jidentifies storage class | | CFMVCD | 
|----------------------------------- р--------------- І----------------------------------- 1 
|Rescans list and generates calling |CFCFSS |CFARHA, CFCALP, CFBIFH, CFMLBR, | 
|sequence for Library routine | TEEMVEDI CFNEST, UTTMPW, CFALF1 | 
Қы салы ыны ыы ты T ee Жасасын bee eee Si сысы —  ——— тыз 1 
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Table ММ1. 


Routine/Subroutine Function 

|BEGIN | |Initializes phases. Т 
АТЕЙ (MO) |Places address of invoked routine at the head of its argument list. 
[сейн Жете calling sequence. 

ср (MO) Ее arguments and sets STATIC/AUTO flag. 

ore |Further built-in function identification with relevant parameter 

| [setting. 

ere Е previous environment. 

fon oe nature of function found. 

КТІ estares pointer to start of invocation. 

crema mem lists, counts arguments, identifies storage class. 

| CFCALP {Completes calling sequence and, if necessary, generates code to 

| linitialize dope vector. 

réog Л for nested function. 

г { Кеѕсапѕ list and generates calling sequence for Library routine. 
fee |Transfer vector after first scan. 

ee |Identifies built-in functions, sets parameters for calling sequence 
| | generation. 

nt (MN) TON. output text area for generation of code to initialize dope 
| |vector when а function returns а string. 

ГТ? лекте code to set up result dope vector. 

ove |Generates code to place result address in argument list. 

ae (MN) КЕРЕЗ code to move а skeleton parameter list which is greater 

| |than 256 bytes. 

ЕРЕН сасе pseudo-code into the output text block. 

Cound ЕРЕН triple into the output text block. 

enue d a nested situation 

T ils parameters to produce special calling sequences. 

|orrues (MN) | rdc one word of workspace. 
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В 
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Phase MM Routine/Subroutine Directory 
талақта meen e 
| 
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Table MP. 


Phase MP Pseudo-Code BUY Reorder 


(rn rrr ry rrr Т----------------------------------- 1 


[Main Processing| 


| Statement or Operation Type l Routine | Subroutines Used | 
------------------------------------|---------------4----------------------------------- 1 
|Маіп scan routine for Boxen | SCAN | MPSTRT | 
ақы ынаны ашы ae eee -ф---------------4-----------------------------------41 
12625250055 BUY and SELL statements Е eee ces ZTXTRF, ZUERR | 
шасы мысалы шшш etu tcd Se ee Е ағалы ee su 4 
Table МР1. Phase MP Routine/Subroutine Directory 

"——— P'———————Á'— — ———— —————— —  ———— 1 
[Routine/Subroutine] Function | 
НЕ let ial ee a ВЕНЕ АНИ ЧЕРИ ae ae a ee Maa a EE 1 


| ADDSEL 
| MPEND 
| 

| MPSTRT 


| 
[МРЗ 


| 

| MP4 
| 

| МРЦА 
| 

| МР8 


| 

| 

|МР23 
|мр26 
ipod 
ү 
РА 
ГЕ? 
ТЕТ 

| МР86 
(fore 
ПЕТ 
P 
ON 
ЕГІ 
| ZTXTRF 


| 
| ZUERR 


-------------“------------------- bin nn nn on on nn a a ee -------------------- 


|Adds SELL dictionary reference to SELL list if not already there. 


|Returns to compiler control at end of phase. 


[Main controlling routine for rearranging BUY and SELL statements 
linvolved in obtaining VDAs for adjustable length string temporaries. 


| Processes EOP triple. Releases control of phase. 


| 


|Processes BUYS triple. 


|Processes BUYX triple. 


[Continues text scan if not string or arithmetic data, or not struc- 


| ture. 


|Continues scan of text. 


|Processes BUYS triple. 


| 
|Processes BUY ASSIGN triple. 


[Processes BUY triple. 


| 
{Processes SUBSCRIPT triple. 


| 
|Processes ASSIGN triple. 


| Accesses top stack entry. 


|Tests triple for BUYX, and processes. 


| 
|Scans for BUYS, BUY, and SELL triples. 


| Processes SELL triple. 


| 
{Generates SELL triples in OUTPUT from SELL list. 


|General scan routine. 
|Converts dictionary reference to absolute address. 


|Changes absolute address to a text reference. 


|Makes error message entries. 
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Table MS. Phase MS Pseudo-Code Subscripts 
о ee pee ШЕ ЧО сын qp uerum a aa Aaa la e 1 
|Маіп Processing| | 
| Statement or Operation Type | Routine | Subroutines Used | 
}----------------------------------- }--------------- %----------------------------------- 1 
| Scans text | SBSCAN | None | 
}----------------------------------- E--—----------- І----------------------------------- 1 
|Calculates element offset | SBSTIH | SBASS, SBCOBI, SBGNOR, SBMVCD, | 
| | |SBNEST, SBSUBP, SBSUDV, SBXOP, | 
| | | UTTEMP | 
}----------------------------------- }--------------- }----------------------------------- 1 
[Checks supscript range | SBSBRN | None | 
Rtas oe ee ee ЕТК a parca eta пени 4 
Table М51. Phase MS Routine/Subroutine Directory 
poem ee ee дан quce a aaa aa Te mem 1 
| Routine/Subroutine| Function | 
Е ЕЕ АА 5 асса p RICE A СЕРЕНА 1 
| SBASS [Updates scan pointer over an assignment. | 
| | | 
| SBCOBI (MT) |Converts subscript to binary integer. | 
| | | 
|SBERR (MT) |Puts error message into dictionary. | 
| | 
[5ВСМОК (MT) |Allocates an odd symbolic register. | 
| | | 
| SBMVCD (MT) |Generates pseudo-code and moves it into output text block. | 
| | 
|SBNEST (MT) |Handles nested subscript situation. | 
| | | 
| SBSBRN (MT) {Checks subscript range. | 
| | 
| SBSCAN |Branches to LA for scan. | 
| | 
| SBSTIH |Calculates element offset. | 
| | | 
| SBSUBI |Saves array name. | 
| | 
|SBSUBP (MT) |Handles end of subscript list. | 
| | 
{ SBSUDV |Generates code to set up the dope vector of an array of adjustable | 
| [strings. | 
| | | 
| 5В505 |Generates code to multiply subscript by multiplier. | 
| | | 
|5В506 |Compiles code to convert to fixed binary. | 
| | 
|5В5002 [Checks for occurrence of subscript. | 
| | | 
|5В5029 |Generates code to multiply subscript by 4 or 8. | 
| | | 
| SBTRID |5сапв for comma, subscript prime, or subscript triple. | 
| | 
|SBXOP (MT) | Handles special index feature. | 
| | 
| SCAN {Controlling scan of text. | 
| | 
|UTTEMP (MT) |Allocates workspace. | 
cM ш Шын a шее a шаны ИН шшш ЕЛЕНЕ НИН e — Ка 1 
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Table NA. 


Dp ea M IG iu касынан анына ат RR i OD ый gy pre ЕН Rte кез EORR ES EE) ри Set wpa ee a ee сағы q 


Phase NA Pseudo-Code Branches, ON, Returns 


|Main Processing 


| Statement or Operation Type | Routine | Subroutines Used | 
}----------------------------------- }--------------- І----------------------------------- 1 
|Initializes text block | NAINIT |SCINIT (LA) | 
-----------------------------------4--------------- %-----------------------------------1 
|5сапв text for next triple of |NASC1, NASC2, |5С1, 5С2, SC3 (all in LA) | 
linterest to user | NASC3 | | 
}---------------- ------------------- %--------------- І----------------------------------- 1 
| Processes STOP statements | STOP | NAUT1 | 
}~---------------------------------- }--------------- %----------------------------------- 1 
|Processes EXIT statements | EXIT | NAUT1 | 
м 1--------- ------4----------------------------------- 
{Processes IF statements | IF |NAUTD, NAUT16, NAUT21, ZSTUT1 | 
}----------------------------------- %--------------- %----------------------------------- 
|Рсосеввев ОМ statements | ON | МАОТО, NAUT6, NAUT16, SC5 (LA) | 
-----------------------------------4--------------- %-----------------------------------4 
|Produces Library call at end of |PROCP, BEGINP |NAUT1 | 
| еасһ PROCEDURE or BEGIN block in | | | 
[source text | | | 
}----------------------~------------ %--------------- %----------------------------------- 1 
|Processes RETURN statements | RETURN | NAUT1 | 
Һ----------------------------------- %--------------- %----------------------------------- 
{Processes function RETURN state- | ЧАЗ002 |NAUTB, NAUTCA, NAUT1, NAUT12 | 
|ments for one data type | | | 
І----------------------------------- І--------------- І----------------------------------- 4 
|Processes function RETURN state- | NA3013 |NAUTA, NAUTB, NAUTCA, NAUTD, NAUTF,| 
[ments for more than опе data type | |NAUT1, NAUT7, NAUT8, NAUT9, NAUT11, | 
| | | NAUT12 | 
}----------------------------------- 1--------------- %----------------------------------- 1 
|Processes GO TO statements | GOTO | NAUTD | 
}----------------------------------- --------------- %----------------------------------- 1 
| Ргосеѕѕеѕ GOOB statements | GOOB |NAUT5, NAUTD, NAUT16, SC5 (LA) | 
[--------——----—--------—------------- -— T ——— — ————— 1 
|Processes SIGNAL statements | SIGNAL |NAUTD, NAUT6, NAUT16, NAUTS, | 
| | |NAUT10, NAUT21 | 
}----------------------------------- 4--------------- 4----------------------------------- 1 
| Processes REVERT statements | REVERT |NAUTD, SC5 (LA) | 
ее sl eee eo зш шыш ыш: дды Б ОБИДЕН ЕРЕ лай appease eat шы 1 
Table NA1. Phase NA Routine/Subroutine Directory 
pcc ecc Um и 1 
| Routine/Subroutine | Function | 
}------------------ І-------------------------------------------------------------------- 1 
(ЕХІТ |Processes EXIT statements. | 
| | 
| GOOB | Processes GOOB statements. | 
| | | 
| GOTO | Processes GO TO statements. | 
| | | 
| IF | Processes IF Statements. | 
| | 
| NAINIT |Initializes text blocks. | 
| | 
| NASC1/NASC2/NASC3 |Scan text for next triple of interest to user. | 
| | | 
| NAUTA |Generates pseudo-code to test switch value at RETURN (function | 
| |Уа1ае) statement for more than one data type. | 
| | | 
| NAUTB |Generates assignment triple to RETURN function result. | 
1 | | 
| NAUTCA {Generates assignment triple set up by NAUTB. | 
| | 
| NAUTD {Generates indicated pseudo-code. | 
| | | 
| NAUTF |Generates pseudo-code to branch to EQU value. | 
Aenean m у ЕЛЕМ ы Fa Rcx a дала шал ШШШ дала — 1 
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Table NA1. Phase NA Routine/Subroutine Directory (cont'd) 


тео те | 
Е отсе ы ша оо ш = | 
| NAUT2 ТТЕ indicated pseudo-code, deletes current triple, continues text 

| | scan. 

[inns {Makes dictionary entry for indicated library routine. 

| NAUT6 ee current symbolic register value. 

NAUT7 on entry, register BR points at an entry label dictionary entry. On 


[normal exit from the routine, register BR points at the next label 
[dictionary entry. Abnormal exit indicates that there are no further 
|labels on the current PROCEDURE or ENTRY statement. 


| 

| 

| 

| 

| 

| 

| 

| 
| | 
| | 
| | 
| | 
| | 
| | | | | 
| NAUT8 |Bump EQU* value for branch pseudo-code item. | 
| | | 
| NAUT9 |Вапр return switch value to be used for current entry label. | 
| | | 
| NAUT11 |For current entry label, generate appropriate EQU* pseudo-code item. | 
| | | 
| NAUT12 {Converts current label dictionary reference to an absolute address. | 
| | | 
| NAUT16 {Converts dictionary reference of triple second operand to absolute | 
| jaddress, loads address into register BR. | 
| | | 
| NAUT17 |Makes dictionary entry for maximum negative number. | 
| | 
| NAUT18 |Makes indicated dictionary entry. | 
| | | 
| NAUT21 | сепегафез pseudo-code to compare source bit string, making library | 
| {comparison routine dictionary entry, if necessary. | 
| | | 
| NA1100 |Tests for SNAP. | 
| | | 
| NA1140 195119 NAUTD, generates code for ON-units. | 
| | | 
| NA3002 |Processes function RETURN statements for one data type. | 
| | | 
| NA3005 lOutputs assignment triple. | 
| | | 
| NA3013 |Processes function RETURN statements for more than one data type. | 
| | | 
| NA8003 |Generates pseudo-code for branch and mask, labels. | 
| | | 
| NA8010 |Converts ID to bit-string. | 
| | | 
| NA8012 [Outputs pseudo-code.  Compares bit-string to zero. | 
| | | 
| ON |Processes ON statements. | 
| | 
| PROCP/BEGINP |Produce Library call at end of each procedure in source text. | 
| | | 
| RETURN {Processes RETURN statements. | 
| | | 
| REVERT |Processes REVERT statements. | 
| | | 
| SIGNAL {Processes SIGNAL statements. | 
| | | 
| STOP |Processes STOP statements. | 
| | | 
| ZSTUT1 |String utility in Phase LV to provide a dope vector for a specified | 
| | string. | 
blu lc. алы ы тады tout Ween a ee ee ae MH MEME IE FIM ыш с ыы ы шысы шашы ыы 4 
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Table NG. 
eo 


Phase NG Pseudo-Code Operating System Services 
ere ee aan р i a aca cada at car og | 


|Маіп Processing] | 


| Statement or Operation Type | Routine | Subroutines Used | 
[Processes DELAY triples мү |CALIB, INTEG, SCAN (LA) о | 
[Processes DISPLAY triples jee [CALIB, CHAR, ENDLST, о | 
| | |5САМ (LA), STORAD | 
Кеш еы Lec ma масынан бы ie oe шин шш Жазда ы алалы ысы a eee ee сыл 1 
Table NG1. Phase МС Routine/Subroutine Directory 

|Routine/Subroutine| ^ Function | 
|CALIB = (Generates part oe с о ан 
| |Library routine. | 
TT. РИТИ а given argument to character string. | 
re аласы DELAY triples. | 
РЕЯ Не DISPLAY triples. | 
nays RON that operand is character variable. | 
ІІ” |Makes dictionary entry for parameter list. | 
ШЕН locns for REPLY option. | 
Еее ЕРКИН parameter list and makes dictionary entry for it. | 
ТОТА РЕЯ а given argument to an integer. | 
I AR to next triple. | 
| stoRAD |stores an address in a parameter list. | 
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Table NJ. 


Phase NJ Pseudo-Code RECORD І/О 


ee ee cece ee ірісін ee даса Tru Oe ін te i EUER aa ei ge О қыла да ынталан ae саны 1 


Statement or Operation Type 
|Initialize Phase NJ by calling in 
|block NK and initializing SCAN 
jutility 
| Initializes switches and flags to 
[indicate start of new statement. 
|Determines RECORD-oriented I/O verb 
[апа goes to appropriate routine 


---------- 


Ғ----------------------------------- 
{Establishes READ code as 

[REQUEST CODE and parameter list 
|size, accordingly 

| Indicates compiler error since 
[deferred feature was not caught by 
jearlier phase 
p--------------------2---2.---2--------- 
|Establishes REWRITE code as 
|REQUEST CODE 

|Establishes WRITE code as 

| REQUEST. CODE 

jEstablishes DELETE code as 

|REQUEST CODE 

|Establishes UNLOCK code as 

[REQUEST CODE (not implemented in 
[second version) 

{Gets next triple of interest, 
|converts to internal code and sel- 
jects the appropriate routine to 

| process it 

| Processes FILE option of RECORD- 
|oriented I/O by placing dictionary 
[reference of FILE Declare DCB in 
|the appropriate slot of the param- 
jeter list. The parameter list is 
Jin STATIC if file constant, WORK- 
|SPACE if fiie parameter 
|Establishes the record descriptor 

| vector (RDV) in the RECORD-oriented 
|I/O parameter list from the data 
|variable referred to in the INTO 
|FROM RECORD-oriented I/O option. 
[The routine assumes the RDV dic- 
|tionary entry to have been pre- 
| viously constructed, except for 
| CONTROLLED variables. In these two 
|савев, the subroutine CRDV- 
[controlled RDV is invoked to create 
|the appropriate RDV. If the 
|variable is static, the RDV is 
|placed in the STATIC parameter 
|list; otherwise, it is placed іп 
|the appropriate slot of the param- 
Jeter list in the statement's WORK- 
| SPACE. 


о 
H 


Һ--------------------------------------------------- 
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-------------------------------------------------------------- 


{Main Processing | 


Routine 


STRTINJ 


— — ee «е «ек «ә «е «ие es — «ки» A чањ 


NUSTAT 


— «е — «лез е es e «лен aq — «ке» «м- — «шә 


——— — — MÀ — — A е — «ем me — «м» «м. 


— «ке —À «ке — өм» ее «ке е-е «мә «м» a «к» «к 


е — «е» «ме «жө өз» еме ет» е-е 


ә — «е — «м» — «> re «м» «ж» ——— «м» «мә «ме «м- 


INTFRM 


—— —— о ee ee ee 


Subroutines Used 


| 

Pisce ec E eee 
|ZLOADW (AA), SCINIT (LA), SC1 (LA) | 
| | 
| | 
foster ar ee 1 
| TXTEST | 
| | 
| | 
| | 
у устын и иери ык ут ана алик eer eee 1 
| SCRHOP | 
| | 
| | 
jueece-sacume gue шш ee 1 
| None | 
| | 
| | 
тегелә О Se ER pM 1 
| SCRHOP | 
| | 
телен ы M es ee ыш 1 
| SCRHOP | 
| | 
> 1 
| SCRHOP | 
| | 
qe р Е N 1 
| None | 
| | 
| | 
ya a A Marc To ыы нышы 1 
[5СЗ (LA), TXTEST, SCANO1, CMPERR | 
|TXTERR, ZABORT (AA) | 
| | 
| | 
тле иши ee шашы 1 
| TXTARG, DYNMPL, LAONLY, STDROP, | 
|СМРЕВВ, TXTERR, WRKSPC, MVPSCD, | 
|ZTXTRF (LA), SYMREG, МУЗ (LA) | 
| | 
| | 
| | 
| | 
Lv MM ARS ҮЙ. КЕШЕДЕР FOP EM КУС АЙТ aE 1 
|TXTARG, CMPERR, DYNMPL, LAONLY, 

| STDROP, LAOSM1, CRDV, TXTERR, 
|ZABORT (AA), WRKSPC, MVPSCD, TXTRF, 
|SYMRES, ZDRFAB (АА), CALLIB, 


|ZDICRF (AA), REFRDV 


fre ——— —— ——— ———— — 


Table NJ. Phase NJ Pseudo-Code RECOR 


D 1/0 (cont'd) 


А Е, Е ge eg Pe EEE T Bo Ел WI Sao шуыл үк Nip ee, ce ee CI ER ee сиса 1 


Statement or Operation Туре 
|Processes KEYTO option of RECORD- 
|oriented I/O by verifying that its 
largument is a character string, 
|then placing it in the appropriate 
|parameter list slot, which may be 
jin STATIC or WORKSPACE 


|Processes the KEY or KEYFROM option| 
| ОЕ RECORD-oriented I/O by | 
[converting the argument to а char- | 
|acter string if it is not already a| 
[character string and placing the | 
|result in the appropriate parameter | 
|list slot; this is either in STATIC| 
|or WORKSPACE 


= 
| 
1 
1 
| 
і 
t 
і 
| 
| 
i 
і 
| 
| 
{ 
і 
1 
1 
| 
| 
і 
| 
! 
! 
| 
| 
і 
і 
[ 
| 
! 
і 
! 
[ 
! 
| 


|Processes the IGNORE option of 

| RECORD-oriented I/O by first 

| checking that the argument is a 
jscalar and then converting to а 
[binary fixed integer if it is not 
|already a binary fixed integer. 
|The address of the argument is 
jplaced in the appropriate parameter 
|list slot in STATIC or WORKSPACE 
р----------------------------------- 
| Processes the event option of | 
|RECORD-oriented I/O by checking l 
[that the argument is a scalar EVENT| 


л —— ——-—- — — — omele —— 


|variable and placing its address in|second version)|MV3 (LA) 


|the appropriate parameter list | 
|Siot. The parameter list is either| 
jin STATIC or WORKSPACE, depending 
jupon the storage class of the argu- 
| ment. 

|А end of I/O statement, places 
|REQUEST CODE (i.e. IODEF) іп sta- 
{tic constant chain, puts STATIC 
jparameter list in STATIC chain. 
|Creates external] Library calling 

| sequence for RECORD-oriented I/O 
[statement as follows: 


EPRM 
LA 1, PARM.LIST 

L 15, RECORD. IO. LIBRARY. ROUT 
BALR 14,15 

EPRM 


——. — — ee —— — ees 


|ІҒ there is a WORKSPACE parameter 
jlist, updates MVC or parameter list 
| Егом STATIC to WORKSPACE. Gener- 
jates any SELL triples accumulated 
|throughout statement on SELL chain. 
|Cancels the RECORD-oriented I/O 
Joption triple codes from the SCAN 

| TRT interest table. Gets next 
|tripie of interest and goes to 


|Main Processing| 


Routine 


— — өкше «ғы» e сш «шы» «еее чье «шие «мы» «ж» е-е AR «ле» «ке» «ее DÀ M «ки» «ла» «и» «қо «же өле» «лы» «ше» өле» «лы» «ме еее nas «мә еше еме «Ро «к» c «әм» —— À— — — À— — «м» «ле — «ле — — -).. — «м» — — — «ме «м» — «е «м» «жш» «к... «ел» «ке мании € «әл» e «кке e HD еке» ——— MD IDA anam «ке» «ға» «ме» «әк» «кке ctm m 


КЕҮОРТ 


— —— ee «әке — — «әм — «ме «мә «м» «б» «м» «ке чн 


ЕУТОРТ 
(not imple- 
mented in 


— — — — — өле еле — ee жм «ее ee — —— — 


Section 3: 


Subroutines Used 
| TXTARG, SCALAR, DYNMPL, LAONLY, 
|STDROP, NXTMPD, ZSTUT2 (STRUT2 in 
|LV), LAOSM2, LAOSM1, TXTERR, 
| ZDRFAB (AA), SC5. (LA), WRKSPC, 
|MVPSCD, MV3 (LA), SYMREG 


|TXTARG, SCALAR, DYNMPL, LAONLY, 
|STDROP, NXTMPD, ZSTUT1 (STRUT1 in 
{LV), LAOSM1, LAOSM2, TMPSEL, TXTERR 


CINTEG, DYNMPL, 
MVPSCD, WRKSPC, 
ZDRFAB (AA), 
NXTMPD, MV3A (LA), 
MV3 (LA) 


| 
| 
| 
| 
| 
+ 
| TXTARG, 
| LAONLY, 
| MVTRPL, 
| CMPERR, 
| WRKSPC, 


—— — «ә «жө «ше M «ле» — «ә «а» «ке «е «лғ жы» «лы» «ли «мн өте m өше «ал» өле «ше «шы» «ша» — шшш өше шшш өл» — шшш — «е. 


| TXTARG, DYNMPL, LAONLY, STDROP, 
|NXTMPD, TMPREF, TXTERR, WRKSPC 
|MVPSCD, ZTXTRF (LA), SYMREG, 


— — «ме е-е — «шә «м» «ә «ж» — «ль жә p «шә «м om — өле «ее шш шш рар «ме «ке «м» «шә e «ме «ме  — P a — 


ZDICRF (AA), LAONLY, LAOSM1, 
CALLIB, MVPSCD, ZTXTAB (AA), 
SC3 (LA) 


SELL, 


AR LÁ т —— әке — — — — «әкке т а көзе» жәнек ешек» A жылан жеке жәнне — жеке M — ———— ata — m — — —— елек» —— e— m м. «ке» — an — жәнее» — — — um олем» аке» өшеке a X өкше a «кеше 


Е 
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Table NJ. Phase NJ Pseudo-Code RECORD I/O (cont'd) 


DERIND ae GP eee Ee ана нні SUPE EY E e M a ee PIE E Dey TU ы ана ay агаа оаа 1 


|Main Processing| 


| Statement or Operation Type | Routine | Subroutines Used 

— eee ee ee ағыла АЕА зді ұ---------------4----------------------------------- 
|indicates presence of NOLOCK | NLKOPT | None 1 
| option. | | 
}----------------------------------- +--------------- %----------------------------------- 1 
{Delete the SELL triple encountered |SELL routine |ZDRFAB (AA), МУЗА (LA) 
[during scan of RECORD-oriented lat SVSELL or | 
|Т/о statement but puts dictionary |TMPSELL entry | 
{reference in the SELL chain so that|point | 
|SELL triple can be regenerated at | | 
|end of 1/0 statement | | 

—————————————— 4---------------4----------------------------------- 
[At end of program, releases own | PRGEND | RLSCTL 
{modules and turns control over to | | 
|next requested phase. | | 
GaSe ee ee ee И ia ЕН Bose eee ааа. ымыра at a сал es al em. 
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Table NJ1. Phase NJ Routine/Subroutine Directory 


escis eat ala a ERE MENT 5 mM EDI MAL EM EDD DU KE M M MR M M M CP ED DM RM DM DE M аы C Lu CN 1 
| Routine/Subroutine | 


| CALLIB 
| 


| 
| CINTEG 
| 
| CMPERR 


CRDV (NK) 


D 
DYNMPL (NK) 


K 
LAONLY (NK) 


K 
LAOSM1 (NK) 


LAOSM2 (NK) 


MVPSCD (NK) 


{Creates pseudo-code to call Library routine; indicates call in dic- 
|tionary if not previously noted. 


|Checks whether argument is a binary fixed integer. 
[Indicates compiler error and ABORT, error code in HOLD register. 


|Constructs a record description vector (RDV) entry in WORKSPACE. If 
{the dope vector descriptor bit is on, then the routine generates a 
|Library call to generate the RDV. If the variable has static 
lextents and is not a string, the RDV is constructed from information 
Jin the RDV dictionary entry. If the variable is a string, then the 
|RDV is constructed from its string dope vector. 


|Indicates compiler error in the case of a deferred feature not 
|detected by earlier phase. 


| 
|Establishes DELETE code as REQUEST CODE. 


|Establishes a parameter list in workspace if one is not already 
|[established. Calculates workspace offset to particular slot 

| request ed. 
[Skeleton pseudo-code for LA, ST, and DROP of register into workspace 


joffset. 


|Handles operations at end of I/O statement. 


| Processes 


| Processes 


| Processes 


| Processes 


| Processes 


[Outputs pseudo-code for LA into symbolic work register of a dic- 
|tionary reference without any offset modifiers. 


|Processes KEYTO option. 

|Establishes pseudo-code for a LA instruction into a symbolic work 
|register with the address of WORKSPACE and a literal offset which is 
|pointed to the argument register. 


|Generates LA pseudo-code in which both base and offset аге in reg- 


|isters. 


|Puts pseudo-code assembied in pseudo-code area into output text 


Establishes a symbolic working register.  Establishes 


EVENT option. (Not implemented in second version.) 
FILE option. 

IGNORE option. 

INTO/FROM option. 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
KEY or KEYFROM option. | 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 


| block. 
| 
MVTRPL (NK) | Invokes SCAN utility to move generated triples into output text 
| block. 
NLKOPT |Indicates presence of NOLOCK option. 
NUSTAT [Handles operations at start of new statement. 
| 
NXTMPD |Invokes SCAN utility to get next triple, which is checked to see if 
jit is a TMPD; if not, it is an error. 
а E Жазса ыш салы сл қы ————————————————— SEA 1 
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Table №1. 


Phase NJ Routine/Subroutine Directory (cont'd) 


| boundary. 


О ME cuim ré SCOTI врун qucm P PICTURE TUM DT IT PIENE 1 
| Routine/Subroutine | Function | 
БЫ "—— Á nnn nnn nnn { 
| PRGEND |Releases control to next phase at end of program. | 
| | | 
| READ {Establishes READ code as REQUEST CODE; establishes parameter list | 
| | size. | 
| | | E | | 
|REFRDV (NK) ]Establishes the address of the RDV dictionary entry in the ARG reg- | 
| lister when given the data variable dictionary address in INDX1. | 
| | | 
| REWRIT |Establishes REWRITE code ав REQUEST CODE. ! 
| | | 
| SCALAR |Confirms that dictionary code byte refers to scalar item; ascertains | 
| |whether item is a constant. | 
| | | 
|5САМ01 |indicates compiler error in the case of a deferred feature not | 
| |detected during Read-In. | 
| | | 
| SCNOPT |Gets next triple of interest, branches to appropriate routine. | 
| | | 
| SCRHOP |Searches options, inserts RECORD-oriented I/O option entries into | 
| | SCAN ТВТ interest table. | 
| | | 
[SELL (NK) {Generates SELL triples for all dictionary references in the SELL | 
| | chain. | 
| | | | | | 
|STDROP (NK) [Outputs pseudo-code to ST contents of symbolic work register into | 
| |parameter list slot in workspace set up by DYNMPL, and the drop of | 
| |the symbolic register. | 
| | | 
| STRTNJ |Initializes phase. | 
| | 
|БҮМКЕС (МК) {Establishes symbolic work register. | 
| | | 
| TMPREF (NK) |Generates the appropriate LA pseudo-code to load the address of the | 
| |temporary described by TMPD. | 
| | 
|TMPSEL (NK) JAdds temporary entry to SELL chain for generation of SELL triple | 
| Jupon completion. | 
| | | 
| TXTARG | Processes second argument of triple. If dictionary reference, esta-| 
| |blishes absolute address іп INDX1. Returns to LR if zero, i.e., | 
| | TEMP, LR+4 if dictionary reference. If null, indicates compiler | 
| |error. | 
| D | 
| TXTERR |Writes error message. | 
| | | 
| TXTEST |Converts function code of triple interest TRT table to interna] key, | 
| land invokes PRGEND if end of program is indicated. | 
| | | 
| UNLOCK |Establishes UNLOCK code as REQUEST CODE. (Not implemented іп second| 
| | version.) | 
| | | 
| WRITE |Establishes WRITE code as REQUEST CODE. | 
| | 
|WRKSPC (NK) {Establishes the requested workspace area, starting on fullword | 
| | 

1 


! 
! 
[ 
} 
! 
і 
і 
! 
| 
! 
і 
} 
| 
[ 
| 
| 
1 
| 
t 
[ 
| 
| 
і 
| 
} 
! 
| 
| 
| 
| 
| 
! 
! 
| 
! 
| 
! 
! 
| 
1 
| 
| 
| 
! 
l 
! 
! 
| 
! 
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| 
| 
i 
| 
| 
| 
i 
і 
| 
| 
| 
1 
| 
і 
| 
1 
! 
| 
і 
! 
! 
| 
| 
[ 
| 
! 
| 
| 
! 
| 
| 
| 
і 
[ 
| 
| 
| 
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Table ММ. Phase NM Pseudo-Code Executable І/О 


г--------------- 


ANI M IIS АГАР араға алала | a жерде pe УУ ok Me a о eg A a R A AA аттана сы А: 


|Маіп Processing| | 


| Statement or Operation Type | Routine | Subroutines Used | 


[Processes GET and PUT statements 


| 
| 
і 
! 
| 
і 
р 
| 
| 
| 
і 
! 
| 
| 
| 


|Processes OPEN and CLOSE statements 


! 
і 
| 
i 
і 
і 
! 
! 
i 
П 
i 
| 
l 
і 
t 


Table NM1. 


--------------- І-----------------------------------1 
|INSERT, STORAD, INSTFL, GENPC, 


|GENTR, MVTRSP, ENDLST, CALIB, 
|СНАВ, INTEG, UTTMPW, SRCERR, 
|SCAN (LA), STRUT1 (LV), STRUT2 (LV) 


Q 
t 
Нн 


+ 

OPEN | INSERT, STORAD, INSTFL, GENPC 
|GENTR, MVTRSP, ENDLST, CALIB, 
|CHAR, INTEG, UTTMPW, SRCERR, 


| 
! 
| 
! 
і 
t 
! 
! 
| 
і 
| 
! 
| 
l 
| 
! 
| 
і 
| 
ott ECT 
| 
| 
! 
і 
і 
| 
| 
і 
і 
| 
і 
! 
| 
| 
! 
| 
! 
! 
і 
| 
| 
| 
і 
| 
р 
{ 
| 
! 
| 
| 
! 
| 
| 
| 
| 
і 
і 
| 
{ 
! 
| 
| 
| 
| 
1 
і 
| 
} 
! 
ақылы тес НЕКЛЕ 


Phase NM Routine/Subroutine Directory 
———— Á 
| 


T 
Routine/Subroutine | Function | 


— — ——À «ле «ле» «м» a «ше «те «ше ee re ш 


|CALIB (NN) 
| 


са (NN) 
pier (NN) 
GEIE (NN) 
NT (NN) 
T 

GERD 
Же 
foe 
кее (NN) 
Ое (NN) 
E (NN) 
ЕНЕР (мм) 
m 

m 
Core 

| SRCERR (NN) 
coe (NN) 


UTTMPW (NN) 


|Generates part of calling sequence and makes dictionary entry for 
[Library routine. 


| Сопуегёѕ a given argument to character string. 


|Completes parameter list and makes dictionary entry for it. 


|Moves pseudo-code to output. 


| Моуеѕ generated triples to output. 


[Processes GET and PUT statements. 


| 
|Initializes switches for GET/PUT. 


| 
| PAGE option. 


| Processes end of I/O statement. 


|Inserts file reference in parameter list. 


jConverts a given argument to integer. 


|Moves data and format list triples to output. 


|Begins scan for triples of interest. 


|Processes OPEN and CLOSE statements. 
| 
|Initializes switches for OPEN/CLOSE. 


|Makes error dictionary entry. 


{Generates pseudo-code to store symbolic register in parameter list. 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
|Inserts dictionary reference in parameter list. | 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
JObtains temporary workspace. | 


| 
Кызым шшш p eee TONNES Mb р ана а А ы ыш ee Se eee 1 


Section 3: Charts and Routine Directories 225 


Table NT. Phase NT Pseudo-Code Data and Format 


[GUIDES gts PE en тс a te we We ge EU LUND Nee A WO IT foe, erg at са га (porq oe tna yee ge m XI E Ee ek A VIE E: 1 


|Маіп Processing 
| Statement or Operation Type | Routine 


| Subroutines Used 


-----------------------------------і|--------------- 1-----------------------------------4 
[Initializes phase, obtains scratch |МТ0000 | None | 
| storage 1 | | 
----------------------------------- 4--------------- %----------------- ------------------ 1 
|5сапв text | NT0O003 |8Т0011, NTOO14, МТ0017, МТ0021, | 
| | |NTO023, МТ0024, 5С2 (LA) | 
}---------------~~------------------ І---------------4----------------------------------- 1 
[Collects remote format items and |МТ0011 {None | 
|saves until end of block | | | 
----------------------------------- І---------------4-----------------------------------1 
jAssociates remote format items with|NTO015 | NTUT1O | 
[data list items | | | 
-----------------------------------і--------------- %----------------------------------- 1 
|Makes entries for Library routines |МТ0017 | NTUT20 | 
|required for EDIT-directed I/O and | | | 
| соріеѕ skeletons for phase NU into | i | 
|scratch storage, then releases | | | 
| phase | | | 
-_——--—---——-—--—---—----------------{-——-------—-——-—-- %--------------------------------- 1 
|Identifies type of data list item |МТ0021 | None | 
jand enters the type code in a list | | | 
----------------------------------- %---------------4-----------------------------------4 
|Associates format and data list | NTOO23 | NTUT10 | 
jitems and marks INCLUDE matrix | | | 
І----------------------------------- 4--------------- 1--------------------------------- 1 
|Identifies type of format list item|NTO0O0245 | None | 
land enters the type code in а list | | | 
----------------------------------- %---------------4-----------------------------------і 
{Sets bits in INCLUDE matrix to | NTUT10 | None | 
|represent STREAM I/O conversion | | | 
|requirements at execution time | | | 
----------------------------------- %---------------4-----------------------------------і 
{Makes dictionary entry for Library |NTUT20 | None | 
| Routine | | | 
RET В ЕВЕ СИЗ НЕВЕ А лыш ее 1 
Table МТ1. Phase NT Routine/Subroutine Directory 
р eI ecc қырды 1 
| Routine/Subroutine | Function 


— — фа е сано на н а анир ань ан рь аа рро айан аы пано eee 


INT0000 |Initializes phase, obtains scratch storage. 

Payee а phase address slots. 

ТЕТЕ ТЕКЕ text. 

| 0011 |Collects remote format items. 

PTT jos us remote format items with data list items. 
SHOOT? 8 entries for Library routines for EDIT-directed I/O. 
ГТ |Identifies types of data list items. 

ГЕ TOC format and data list items. 

| 0024 [те Ба types of format list items. 

| 971700 |No EDIT-directed I/O, therefore no scan pass. 

| SUT T bits in INCLUDE matrix. 

NTUT20 likes dictionary entry for Library routine 
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Table NU. Phase NU Pseudo-Code Data and Format 


Ge ete ap NA NE ETT NAR ee VOL UE UE Е Wo DUeT У UT T Wee a О ЧЁ pp UT ЕЕ EP TU yu ete ST T) Qut 12 


|Main Processing| 
| Statement or Operation Type | Routine ] 


L 
|Scans text for LIST-, DATA-, and 
|EDIT-directed input/output state- 


{Generates Library calling sequences|DATA 

|for data items in DATA-directed т/о| 

| statements | 

|Generates Library calling sequences | ОВЕ10 

{for data items in LIST-directed I/0| 

| statements. | 

| Generates Library calling sequences |0B700 

|Ғос data and format items in EDIT- | 

| directed I/O statements 
|Generates code to set up Library 
|calling sequences for identifiers 
jin data lists 

|Generates code to set up Library 
|calling sequences for subscripted 
|elements апа expressions in data 
| lists 

|Generates code to set up Library 
|calling sequences for format items 


|E and F with constant 


|Generates code to set 
[calling sequences for 
|E and F with variable 


parameters 
up Library 
format items 
parameters 


—— — — — — — — — — нь — 


[Generates code to set up Library 
[calling sequences for format items 
|А, B, and control format items with 
[constant parameters 


|Generates code to set up Library 
[calling sequences for format items 
|A, B, and control format items with 
|variable parameters 

| Generates code to set up Library 
|calling sequences for format items 
|^ and B without a parameter 


Table NU1. Phase NU Routine/Subroutine Directory 


ЕЕ ЕВ T Е eoe ee eee ee ee ee ББ: eee ee See 1 
| | 


Routine/Subroutine 


— — — «м» «ше «ке» «ма» — «ее» «жи» «лм» «ы» «әке ee «ке» — — — pas «м» «м» «ме cee «зе» ees «ке е» е» wee «шы» «ле» «ее ce енә te — re «ы» «жы» «лм» «шы» ee — <-» «ке» «ше «ғы» жы» «ке re «мл» — «әш» «ған ee «шы» а» жо» oe ee чөл, «ғы» «шә oe «ше «ға» «әм» «лы» «ли» «и» «кы» «ки» ee ium ium qum өші» eee «жы 


| BCDCNV (NV) |Converts decimal BCD to equivalen 
| | 

| DATA | 
| |I/O statements. 
l 

| ENDLST |Completes parameter list and make 


| | 
| INSERT 


Section 3: 


Subroutines Used 


INSERT, ENDLST, PARADE, OBUT25 


re <= «ше «ме ee ато «лы оле «ле» «м» ано «и» — ae «лы» «ки» «лы» «ғы» «ее — —— «м» өз» «мә өм» өше жә» — «м 


OBUT20, OBUT22, OBUT25 


n 
n 
л 
н 
D 
чч 
= 


STRUT2 (LV), UT1, UT2 


BCDCNV, UT15, UT18, UT9, UT11 


UT11 


UT25, UT24, UT22, UT18, 079, 


BCDCNV, UT15, 


UT9, 


OBA22, 
UT11 


OBA26, 


че um» өле «же өне» A еш» «ғы» A «шы» «ме» «ке» — A «жм» MÀ шш — «ж» «жа a A» Aum au «шь Au MEM «ж» «нь чека өше «мы 


t binary value. 


{Generates Library calling sequences for data items in DATA-directed 


S dictionary entry for it. 


|Inserts dictionary reference in parameter list. 
MODICO TIRE ee ЧИНИН ares А t ae ыл алша асы nr, НЫ ре RR E HE NERVES RU ER тшшш DURUM 


Charts and Routine Directories 


---1 


ы. — — — — — — — — 


227 


Table М01. 


|OBC50 (NV) 


| 
|OBC61 (NV) 


OBUT25 


B110 


о о 


B700 (NV) 


OB730 (NV) 


OB731 (NV) 


OB760 (NV) 
OB840 (NV) 


ОВ940 (NV) 


а 
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UT9 (NV) 


UT11 (NV) 


T15 (NV) 
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Т15А (NV) 
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UT19 (NV) 
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UT24 (NV) 
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Phase NU Routine/Subroutine Directory (cont'd) 


г-------------- 
| Routine/Subroutine 


Function 


+-----------------------------------------------------------------—--- 


|Generates branch to start of list in case of FORMAT’. 


|Generates branch around format item. 

| ! 

|Generates Library calling sequences for data items іп LIST-directed 
|І/О statements. 


|Makes dictionary entry for DED in current TMPD triple. 


{Fill in pseudo-code skeleton to make parameter list for expression 

|result as data item. 

| 

|Sets register GRA to point at row in ZINCL matrix corresponding to 

[data type of current data list item. Sets secondary lists in ZINCL 
|if data item is complex. 


| 
|Scans text for LIST-,DATA-, and EDIT-directed I/O statements. 


| 

|Generates codes for Library calling sequences for data and format 
jitems in EDIT-directed I/O statements. 

| 

|Generates code for Library calling sequences for subscripted 
[elements and expressions in data lists. 


|Generates code for Library calling sequences for identifiers in data 


| lists. 
| 


|Processes EDIT' triple. 
|Looks for beginning of format list. 


{Generates code for Library calling sequence for control format 
litems, and format items A,B,E, and F. 

| 

|Generates branch to start of list in case of FORMAT 1157". 

| 

|Makes dictionary entry for parameter list pointed to by GRA. 

| 

{Generates pseudo-code indicated by registers RR, BR. 

| 

|Sets register BR to absolute location of dictionary reference in 
|зесопа operand of current triple. 

| 

|Generates ІРЕМ pseudo-code item with length set up іп register RR. 
| 

|Makes dictionary entries for library routines for input and output 
lof current format item director. 


|Makes dictionary entry for FED for non-picture item. 


|Makes dictionary entry for picture FED. 


[Bump count of operands in E or F format item. 


| 
{Generates assignment triples for А,В or control format item with 
[variable parameter to assign to workspace. 


[Generates pseudo-code to form FED in workspace for variable paramet- 


[ег in E or F format item. 

| 

|Generates assignment triple for variable parameter in E or F format 
litem to assign value into arithmetic register. 

| 

|Generates pseudo-code to initialize FED in workspace for E or F 
|format item. 
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Table OB. Phase OB Pseudo-Code Compiler Functions 


(SSS а ee aa quc cum qot О m memos DE Ode pU 1 
|Main Processing| | 
| Statement or Operation Type | Routine Subroutines Used | 


! 
l 
! 
! 
| 
і 
! 
| 
| 
| 
| 
1 
і 
! 
! 
і 
| 
і 
і 
! 
| 
! 
| 
| 
| 
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| 
| 
l 
| 
| 
| 
| 
і 
| 


{Scans text for BUY, BUY ASSIGN 
[statements and compiler function 
[апа compiler pseudo-variables (see 
|Appendix D.8), and transfers to 
jappropriate routine 

|Replaces MTF compiler functions 

| (Appendix D.8) by pseudo-code move 
[character instructions, adjusting 
|the target field to controlled or 
|temporary type 2 workspace where 

| necessary 

| Replaces ADV compiler functions 

| (Appendix D.8) by pseudo-code 
Jinstructions to load specified 
jelement of a dope vector into a 

| register 

|Replaces SDV compiler functions 

| (Appendix D.8) by instructions to 
jload the maximum length froma 
jstring dope vector into a register 


——— «е “әле e = «ши» «әке —— 9 cre чь» «ки» ee ee ee «ер — аль ee ee ee ee «аа» — ee ee 


MTFR 


| 
| 
| 
| 
| 
BUFIZE, FRSTOP, SC3 (LA) | 
| 
| 
| 
| 
| 
1 
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SDVR 


BUFIZE, STACK, MV3A (LA), FRSTOP, 
DROPRG, USTACK, SC5 (LA) 


| Replaces compiler pseudo-variable 
|triples and compiler assignment 
[triples by pseudo-code instructions 
[which store the value assigned in 
|specified part of dope vector 
[Remove BUY, BUY ASSIGN, and SELL 
|statements for scalar non- 
[adjustable temporary variables from 
|the text, and allocate storage in 
|the pseudo-code workspace for the 

| temporaries 


ST8, ST10, ST7 


— Ó— — ee «лы» M өм» «шь — «шә әке аш өле тш» «и» AQ «лез «км» a жш» A «ым» — — A» "M «әм» — «кие we 


SC2, SC3 (both in LA) 


|Generates code to drop a symbolic 
|register, or mark a literal 
[register not wanted 
ІҺ----------------------------------- 
{Determines whether the target dic- 
|tionary reference of MTF function, 
jor ADV or SDV pseudo-variable is 
|controlled or a temporary type 2. 
|ІҒ it is, the dictionary reference 
lis replaced by the dictionary ref- 
|erence of the controlled or tem- 
|porary type 2 workspace, with the 
lappropriate offset, if the target 
lis a structure base element 

[Stack and unstack the information 
|Specifying the target field of 
|compiler pseudo-variable assignment 


— — — —— — — — е «ғ «к. «ж» «ж» a ap -- — a «е —— — «шә ew «м» «м» «ша — M UM" еи» «ли» es «е am a «ше «өле EP dams UND aum apes «лан «м» ms DP TED um 


STACK, USTACK 


.[Calculates the offset of the dope 
|vector of a structure base element 
|from the start of the structure 
|dope vector 

|Place triples from the source text |BUFIZE 

jin an internal buffer. | 


— — — — — — --- --- — — — — — -- 


SETDVF 


к---------------------------------------------------к--------------------------------------------------------------------------- 


і 
! 
! 
! 
і 
| 
| 
! 
l 
| 
1 
| 
| 
і 
| 
| 
| 
і 
| 
| 
| 
1 
! 
| 
| 
| 
| 
! 
t 
! 
! 
| 
| 
| 
! 
H 
| 
! 
| 
| 
! 
| 
! 
| 
і 
і 
| 
| 
| 
| 
| 


Section 3: Charts and Routine Directories 229 


Table ОВ1. 


Phase OB Routine/Subroutine Directory 
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|RoutinezSubroubine] 
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| AT8 
Surti 
| 5 
ЕЛ 


| 

| DROPRG 
| 
FRSTOP 
MTFR 
SDVR 
SETDVF 


| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| STACK/USTACK 
| 

| 

| 

| 

| 

| 

| 

| 

| 

| ST7,ST8,ST10 
| 
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Function 


{Replaces ADV compiler functions by pseudo-code instructions to load 
|the specified element of a dope vector into a register. 


|Generates pseudo-code 


| 


|Керіасев operand by workspace reference. 

{Places triples from the source text in an internal buffer. 
| 

[Tests length of string. 


|Processes string temporary (dope vector only). 

| 

|Generates code to drop a symbolic register or mark a literal reg- 
lister not wanted. 

| 

|Replaces the target field of MTF function or compiler pseudo- 
|vVariable by controlled workspace where necessary. 


|Replaces MTF compiler functions by pseudo-code move character 
| instructions. 


| Replaces SDV compiler functions by pseudo-code instructions to load 
{the maximum string length into an object register. 


{Calculates the offset from the start of a structure dope vector to 
|the dope vector of a particular base element. 


|Stack and unstack information specifying target field of compiler 
| pseudo-variable assignment. 


|5сапѕ text for BUY and BUY ASSIGN statements, compiler functions, 
[апа compiler pseudo-variables. 


|Replaces compiler pseudo-variables and compiler assignment triples 


|by pseudo code instructions to set the assigned expression, convert- 


jed if necessary in the specified part of a dope vector. 

| 

|Remove BUY, BUY ASSIGN, and SELL statements for fixed scalars from 
|the text, and allocate space for the temporary variables in the 

| pseudo- code workspace. 
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Table OE. 


Phase OE Pseudo-Code oe 
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| Statement or Operation Type 


|Generates pseudo-code for assign- 


[ment triples 


|Generates Library calling sequences|ALLOC, FREE, 
|for ALLOCATE, FREE, BUY, 


[Ре 


НР eee ae eee eee Ne dai iE ОЕ Ба шысы мыса асы 
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| 
| ASFBOO 


| 
|ASFDOO (OF) 


| 
| ASFLOO 


| 
[А5100 
| 
[А5500 


| 
[455032 
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and SELL 


[Main Processing] 


Phase OE ЕСЕ Directory 


| Routine | Subroutines Used 
ЕН ee ee 

|А5500 | ASC00, А5Ср00, ASDROP 

| | 

+ }-------------------------------- 
| CALIB 

|BUY, or SELL | 

| | 
НЕ л ыш шы з шсш 

Function 


|Processes ALLOCATE triples. 


|Inserts target types for constants. 


[Controls assignment of real and complex data. 


|Drops symbolic 


| Generates 


| Generates 


| Generates 


| Generates 


| Processes 


[Tests for 
| Generates 
| 


| Processes 


|Generates 


code 
code 
code 


code 


registers. 

for fixed binary assignments. 
for fixed decimal assignments. 
for floating-point assignments. 


for label assignments. 


assignment triples. 


Special assignment triple. 


code 


for string and numeric field assignments. 


BUY triples. 


Library calling sequences. 


|Enables for SIZE prefix option. 


| Processes 


| Generates 


| Generates 


| Generates 


FREE 


triples. 


convert macro instruction. 


RX instruction. 


SS instruction. 


|Obtains operand description. 


|Removes index from operand. 


|Obtains next symbolic register. 


|Processes SELL triples. 


|Processes special assignment triples. 
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Table OG. Phase OG Library Calling Sequences 


ранае a a Up D ee Troe eee papae ee CI MAD M eA CDU ECCLE 

|Маіп Processing| | 
| Statement or Operation Type | Routine | Subroutines Used | 
ep ta шш талына («ot RS І---------------і4----------------------------------- 
{Examines all triples left in text |MJG012 | UPDATE, MJG030, ҒМТ001, MJGO0U5, 1 
|before converting them to pseudo- | |MJG060, MOVEN | 
| code | | | 
----------------------------------- %---------------4-----------------------------------і 
[Transfers pseudo-code to output | М26060 |М25300, MJG200, MJGO80, MJG100, | 
[text | |М76075, UPDATE, MOVEN | 
----------------------------------- %---------------4-----------------------------------і 
|Generates calling sequence for | М26200 |ТЕМОН, UPDATE, MOVEN | 
|Library conversion modules | | | 
----------------------------------- І---------------1-----------------------------------і 


{Controls the output of text and the|UPDATE 
handling of output text blocks | 


| 
кызы созсо ын қасиет лч с ee a cot i 
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Table 061. 


г------------------ 
| Routine/Subroutine 


| BMPTXT 
| 
|FMT001 


| FMro02 
ІЕМОН 
MJG011 
MJG012 


MJGO30 


(OH) 


(OH) 
(OH) 


(OH) 


Phase OG Routine/Subroutine Directory 
De ee ere en mu mer Mme eee ee eg ee 1 
| 


Function 


|Handles the output of text blocks. 


| 
| Processes FORMAT and FORMAT LIST triples. 


|FORMAT LISTS triple encountered. Clears workspace 3 marker, reverts 
|to workspace 1. 

| 

|Examines data types in CONVERT macro, and generates calling sequence 
[to a conversion routine. 

| 

|Converts statement number triple to pseudo-code, moves to output 

| text. 

| 

|Examines all triples left in text before converting them to pseudo- 

| code. 

| 

| Processes PROC, PROC', BEGIN, BEGIN' triples and sets up counts for 

|working storage requirements. 

| 


|Sets up workspace counts for containing block. 


|Sets up workspace counts for block. 


|JMP, EOP, or EOP2 encountered. If EOP, moves to output text; 
lotherwise, makes appropriate branch. 


|Removes JUMP triple from text and prepares for following pseudo- 
| code. 


| 
| Handles the transfer of pseudo-code and looks for CONVERT items. 


|Transfers 5-byte pseudo-code items. 


[Transfers 3-byte pseudo-code items. 


|Transfers variable length pseudo-code items. 


| 


|Controls the output of the pseudo-code generated to call conversion 
| routines. 


|Generates pseudo-code to point to source data. 


|Generates pseudo-code to call Library conversion routine. 


[Sets bits for conversion modules. 


| 
|Removes IGN triple. 


|Deletes length of pseudo-code; gets next pseudo-code instruction. 


|Handles the input text when an item spans blocks. 


|Moves text to an output block. 


|Tests whether the current text block is full. 
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Table OS. 


Phase OS Constant Conversions 


г ra ay yp Ac eg аналы ани GAs о КИ Wt ei =F ee Se coe рук ан > Тл ЫЛ Ул T ЕШ a == 1 


| Statement or Operation Type | 


|Scans constants chain for double 
|word constants 


[Scans constants chain for single 
{word constants 


Routine Subroutines Used 
Ғ---------------4---------------------------------- 
| SCAN1 POOLSC, SCNO10, STPTST 
| 

ha aa eee S ұ---------------1---------------------------------- 
| SCAN2 POOLSC, SCNO10, STPTST 
| 
q[---------------------——---—-------2----------—------- 


[Scans constants chain for unaligned|SCAN3 


| constants 


|STATIC storage 


|5сапв through constants chain for |SCAN4 CONVRT, STPTST 
jall constants used to initialize | 

| 
І----------------------------------- Re E қаси аста EN 
|Sets up parameter and branches to |CONVRT | ARARD, ARBTD, ARCHD, CHARD, ERROUT, 
|the correct conversion routine | | ТАСОМУ, IASTRN, IHEVFA, IHEVFB, 

| |ІНЕУЕС, IHEVFD, IHEVFE, ІНЕУКЕ, 

| |IHEVKG, IHEVPA, IHEVPB, IHEVPC, 

| |IHEVPD, ІНЕУРЕ, IHEVPF, IHEVPS, 

| | IHEVPH, UPAA, UPAB, ОРВА, UPBB, 

| |VSAA, VSCA, VSDA, VSEA, ZEROPT 
UM de taU ЕЕ OE СМ ИЕН dulclc elt cocjtilcaezdm ЗЕ M M ier iL НЕ 


Table OS1. 
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Phase OS Routine/Subroutine Directory 
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{Handles the linking of routines required for any arithmetic to 
larithmetic conversions (corresponding Library module IHEDMA). 

| 

|As above for arithmetic to bit conversion (corresponding Library 
[routines IHEDNB). 


| 
|Arithmetic to character (IHEDNC). 


|Character to arithmetic (IHEDCN). 
| 


{Sets up parameters and branches to correct conversion routine. 


|Handles the output of error messages for the conversion routines. 


|Handles conversion to arithmetic type. 


|Makes dictionary entry in the constant pool, generating a new con- 
|stant pool block if necessary. 


|Handles conversion to string type. 

ТЕРМЕН radix long floating-point binary to packed decimal inter- 
| mediate. 

ener long precision floating-point number to fixed binary. 
КОН: long floating-point number to floating-point variable. 


[Converts fixed point binary integer with scale factor to long preci- 


|sion floating-point intermediate. 

| 

[Converts floating-point number of specified precision floating- 
ТРӨЗДЕ» 
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Table 051. Phase OS Routine/Subroutine Directory (cont'd) 
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| Routine/Subroutine| Function 

| IHEVKF (OU) |Converts packed decimal intermediate to decimal fixed or floating- 
{point numeric field with specified precision. 
| 

IHEVKG (OU) |Converts packed decimal intermediate to a sterling numeric field, 
Jwith specified precision. 
| 

IHEVPA (OT) |Converts packed decimal intermediate to long float. 
| 

ІНЕУРВ (OU) [Converts packed decimal intermediate to an F format item. 

IHEVPC (OU) [Converts packed decimal intermediate to an E format item. 

IHEVPD (OT) |Converts packed decimal intermediate to a decimal integer with 
[specified precision and scale factor. 
| 

IHEVPE (OT) |Converts ап F or E format item to packed decimal intermediate. 
| 

IHEVPF (OT) |Converts a decimal integer with specified precision and scale factor 
[Ко packed decimal intermediate. 
| 

IHEVPG (OT) |Converts binary fixed or floating-point constant to long precision 
| floating-point. 
| | 

IHEVPH (OT) |Converts bit string constant with up to 31 significant bits, to 
|floating-point with long precision. 
| 

LDCONP |Points to head of constant chain. 
| 

POOLSC [Given a converted constant in scratch storage, scans the existing 
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|роо1 for an identical entry. If such ап entry is found, the pool 
joffset and dictionary reference of the entry is moved into the dic- 
Jtionary entry for the constant. 


|5сапв constants chain for double word constants. 


[Scans constants chain for single word constants. 


{Scans constants chain for unaligned constants. 


[Scans constants chain for constants used to initialize static stor- 
lage. 


|Controls the calling of the conversion routine CONVRT and pool scan 
|routine POOLSC and, if required, IADENT. Also handles the case of a 
|constant given in internal form. 


|Checks for the end of the constant chain. 


| Produces zero real (imaginary) part for CAD (corresponding Library 
[module IHEUPA). 


|Produces zero real (imaginary) part for numeric field (IHEUPB). 


| 
[Convert from bit string to bit string (IHEVSA). 


|Convert from character string to character string (IHEVSC). 
|Convert from character string to bit string (IHEVSD). 
| 


[Convert from character string to pictured character string (IHEVSE). 


|Produces a zero real or imaginary part for a constant given in 
jinternal form. 
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Storage Allocation Logical Phase Flowchart 
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Chart PH. Phase PH Overall Logic Diagram 
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Chart PL. Phase PL Overall Logic Diagram 
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Chart РР. Phase PP Overall Logic Diagram 
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Table PD. Phase PD Storage Allocation Static 1 


ee ee ay т т ee ee 
|Main Processing| 

| Statement or Operation Type | Routine | Subroutines Used 

6600 ——————- %----------------------------------- 

|Reverses second file dictionary | PD | NXBLCK 

| pointers | | 

----------------------------------- Іі--------------- 1----------------------------------- 

|Sorts STATIC chain | SCSORT |None 

————————————— 4---------------4----------------:------------------- 

|Allocates storage for simple, non- |STATIC | None 

|structured, non-external items | | 

н į- іұ---------------І----------------------------------- 

|Allocates dope vectors for all | DVALOC | None 

|non-external items | | 

————————ÁÓ——M I---------------4-------------2-22-2------------------ 

| А11осаёеѕ 4-byte addressing slots; |TVALOC | STRCDV 

[calculates control section size for| | 

|а11 external items | 1 

— менін ы ct i in a ШШШ cn as 4---------------1----------------------------------- 

|А11осағев storage for constants. | CONALC | None 

bie ENEE E ee MS coer НЕЕ Е НИЗ ЕВ ЕЕ НИНЕ а шшш ЕО SUE DN SUMUS 

Table PD1. Phase PD Routine/Subroutine Directory 

foots e киски ш Баа Е ОКЕ БР a a gy Ne ay асса аа 

| Routine/Subroutine | Function 

| CONALC |Aliocates storage for constants. 

| DVALOC |Allocates dope vectors for all non-external items. 

| 

| NXBLCK [Obtains next text block. 

| | 

[Рр |Scans text file and reverses second file pointers. 

| | 

| SCSORT |Sorts STATIC chain. 

| STATIC |А11осағев storage for simple, non-structured, non-external items. 

| STRCDV |Allocates relative offsets of structure member dope vectors. 

| TVALOC |Allocates 4-byte addressing slots; calculates control section size 

| |Ғос all external items. 

Lx қамы ie ee АНИ a i ee аА ———— ——— ое 


4 
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Table PH. Phase PH Storage Allocation Static 2 


poet тас eg анат ae OI T ДО ea A eee ae a eer линктер с аи на ыссы аа 1 
|Main Processing | 


| Statement or Operation Type | Routine 


|Scans AUTOMATIC chain; allocates 
| dope vector 


+ 
| 
| 
+ 
| 
аным алыл Ше АННЕ ыдан ts + 
JAllocates storage for skeleton | 
|argument lists appearing in STATIC | 
| chain | 
}-~--------------------------------- 4 
|5сапв STATIC chain for INTERNAL | 
jarrays; calculates number of | 
|еіетепев for those arrays needing | 
linitializing. Allocates storage | 
|for arrays and, if necessary, for | 
|secondary dope vectors | 
uH как кене екенин анын + 
|5сапв STATIC chain for INTERNAL | 
| structures. Calculates number of | 
[elements in structured arrays need-| 
jing initializing. Calculates size | 
|ОҒ storage for all structures and | 
|bumps location counter. 


Section 3: 


| Subroutines Used 


+ 
|AUTOU, SKDV1, SKENT3, STRSCN, 
| TEMPDV 


None 


None 
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Table РН1. 
г------------- 
| 


Phase PH Routine/Subroutine Directory 


Е 
Routine/Subroutine | Function | 


| ARRSCN 
| 


| 
| AUTEND 


{Scans STATIC chain for INTERNAL arrays; allocates storage for arrays| 
[and secondary dope vectors. 


| 

{Tests for end of AUTOMATIC chain. | 

| | 
| АОТОВ |Calculates size of dope vectors for dynamic temporaries and CON- | 
| | TROLLED variables. | 
| | | 
| CONSCN [Scans CONTROLLED chain. | 
| | | 
| CSCN2 |Tests for end of STATIC chain. | 
| | 
| END513 [Stores STATIC location counter and releases control. | 
| | 

| PBSCAN [Scans AUTOMATIC chain; allocates dope vectors. | 
| | 
| PBS1 [Gets next item in chain. | 
| 

| SKARGL |Allocates storage for skeleton argument lists appearing in STATIC | 
| | chain. | 
| | 
| SKARG1 {Allocates storage required. | 
| | | | 
| SKDV1 |Creates skeleton dope vector dictionary entries for non-structured | 
| {variables in AUTOMATIC and CONTROLLED storage. | 
| | 
| SKENT3 [Constructs skeleton dope vector dictionary entries for function | 
| | values. | 
| | | 
| STRALO |Calculates number of elements in structure arrays to be initialized; | 
| |calculates size of storage for all structures. | 
| | | 
| STRSCN {Creates skeleton dope vector dictionary entries for structures іп | 
| | AUTOMATIC and CONTROLLED chains. | 
| | | 

TEMPDV Creates skeleton dope vector dictionary entry for temporary work- 
7 Y 

| | Space. | 
Bos es кек ize Шыны санаса E ысы aan ae eee ee ee a 1 


Table PL. Phase PL Storage Allocation Symbol Table and DEDs 


Main Processing| 


| Statement or Operation Type | Routine | Subroutines Used 
жандан ee eee eee LC ee +---------------+--------------------------------- 
|А11осағев STATIC storage for all | IEMPL | BCSCAN, CCSCAN, CNSCAN, SCSCAN 
[symbol tables апа DEDS | | 
Sees ыш шшш шкын шшш ылы аза дын ф---------------4---------<------------------------ 
|5сапв STATIC chain for symbol апа” |SCSCAN |DEDAL1, STRSCN, SYMTAB 
|DED variables | | 
----------------------------------- І--------------- =—-=— MMMM 
[Scans CONTROLLED chain for symbol  |CCSCAN |DEDAL1, STRSCN, SYMTAB 
Jand DED variables | | 
Баса салда алы —— лды Шы ы ЕЕС 4---------------і4--------------------------------- 
|5сапв PROCEDURE block chain of | BCSCAN | ACSCAN, DEDAL1 
|ENTRY type 1 entries | | 
oec Ce a ыла лы a ИИ E ЫШ 1---------------4--------------------------------- 
|Scans AUTOMATIC chain for symbol | ACSCAN |DEDAL1, STRSCN, SYMTAB 
[апа DED variables l | 
канн ah aaa Me а at 1---------------4--------------------------------- 
|Scans chain of members of particu- |STRSCN |DEDAL1, SYMTAB 
|lar structure for symbol and DED | | 
| variables | | 
"—— ———— — ———— РИН j-]--------------.-------2---2-2------]---------------- 
|Allocates storage for symbol tables|SYMTAB | DEDAL2 
tom Mp nc RU EE ES rea ыы j------—--------------------------- 
jAllocates storage for DEDS |DEDAL (two | None 
| Jentry points: | 
| БЕД DEDAL2) | 
—— c ——— Ды арылы БОЛЫ a——— rmx ыш ы 
Table PL1. Phase PL Routine/Subroutine Directory 
| Routine/Subroutine| Function 
}------------------ }---~----------~-------+-~----------+-+---------------------------- 
| ACSCAN {Scans AUTOMATIC chain for symbol and DED variables. 
| 
| BCSCAN |5сапв procedure block chain of ENTRY type 1 entries. 
| | 
| CCSCAN {Scans controlled chain for symbol and DED variables. 
| 
| CNSCAN |5сапв constants chain for DED variables. 
| | 
|DEDAL1 (PM) jAllocates storage for DEDs. 
| IEMPL |Allocates STATIC storage for symbol tables and DEDs. 
| | 
| SCSCAN |5сапв STATIC chain for symbol and DED variables. 
| 
| STRSCN {Scans chain of members of particular structure for symbol and DED 
| | variables. 
| | 
|SYMTAB (PM) Loser 58 storage for symbol tables. 
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Table PP. Phase PP Storage Allocation Sort of AUTOMATIC Chain 


a ama a a кек ES ү a a I a aR a RS a a 1 
|Main Processing] 


| Statement or Operation Type | Routine 
i ash a at алаша өсінді сомы аналы E ыы 4----------- 
|5сапв BEGIN-ENTRY for ENTRY type 1 |RAO 

| entries | 

Hos SO шышы а cubi қалқы Pee eee 
|Scans AUTOMATIC chain from each | SETCH 

| ENTRY type 1 entry | 

i A sik es an eS nee elo шайы» 1----------- 
{Adds ОМ conditions to first AUTO- |5С24 

|МАТІС zone | 
Е лыы алд ea o e ыы 1----------- 


| 
[Adds temporaries (type 2) and іпде- |5С31 
|pendent items to first zone 


| 
pom es SCR ———— 
{Adds dependent items to subsequent |SC44 
| zones | 
Е ЫЕ шнш е чиеси ЕЕ 
|Determines list of dependencies |5С39 
|from INITIAL attribute | 
Е NEP e —— натын 
|Determines list of dependencies | Sc40 
|from DEFINED attribute | 
"PPM DUI PN RR Toon cuiu 


|Determines list of dependencies for|SC35 
larray bound expressions | 


|Determines list of dependencies for|SC50 
String length expressions 
g р 


т» н a «ә» «к» о Mn Ra чш «ше» «лем «и» шш «к» «кек» ты» "P MP» — «и» «ке аро «ғы» чаше «И —— «и» á— че «ее» «мы» «ооо — әј ш — «шы» ш — «к» «ше «же «м» «е ш 


{Removes independent item dictionary|SCRUB1 
|сеҒегепсев upon which items in the | 
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ba tt HH HH HH Ht 


Subroutines Used | 


сш ы a re иы 4 
SETCH, SCRUB1, SORCH | 
| 
ашыш шыда EUN 1 
EXDT, SRCH2 | 
| 
шшш Шш lu шышы ШМ ы алысы А балы А 1 
None | 
| 
дында тасы ылы LIRE CUR 1 
None | 
| 
а Нн а нек есес 1 
Мопе | 
| 
шше eS an Ee 1 
SCNCHN, SRCH2 | | 
| 
ешым ышы Mc алдыда ы se ыы 1 
SCNCHN, SRCH2 | 
| 
кошкыл а ысыла ы ма Эз E шы НОСНЕ 1 
EXDT, SCNCHN | 
| 
E CA on шы абы Л шш ЫЫЫ RN 1 
SCNCHN, SRCH2 | 
| 
ее ее 1 
Мопе | 
| 
| 
„елшш P ' 'Á—— — EE 1 


Table PP1. Phase PP Routine/Subroutine Directory 
рсете етше To ттуу Pe Cau E тшшш серыш т=н рда 1 
| | 


Routine/Subroutine Function | 
ЕЕ Е a сы a EA a ag ore 4 
| EXDT |5сапв dimensions tables for second file statements with adjustable | 
| | bounds. | 
| | | 
| RAO |Scans BEGIN-ENTRY for entry type 1 entries. | 
| | | 
| RA1 [Tests for end of ENTRY type 1 chain. | 
| | | 
| ВАЗ {Creates an AUTOMATIC chain delimiter. | 
| | | 
| RA7 |Tests for end of chain. | 

| | 
| SCNCHN [Scans current AUTOMATIC chain; determines whether reference belongs | 
| [Ко it. | 
| | | | cud | 
| SCRUBI |Removes independent item dictionary references from the stack of | 
| [dictionary references upon which items іп the AUTOMATIC chain | 
| | depend. | 
| | 
|5С24 |Adds ОМ conditions to first automatic zone. | 
| | 
{5С31 {Adds temporaries (type 2) and independent items to first zone. | 
| | 
|5СЗ5 |Determines list of dependencies for array bound expressions. | 
| | | 
|5С39 |Determines list of dependencies from INITIAL attribute. | 
| | | 
{5С&0 {Determines list of dependencies from DEFINED attribute. | 
| | 
15084 |Adds dependent items to subsequent zones. | 
| | | 
|5С50 |Determines list of dependencies for string length expressions. | 
| | | 
| SETCHN |5сапв AUTOMATIC chain from each ENTRY type 1 entry. | 
| | | 
| SORCH |Sorts chain in order of dependencies; creates zone delimiter dic- | 
| |tionary entries. | 
| | 
| SRCH2 |5сапв second file statements for dictionary references of labels, | 
| |data items, and structures, which may belong to the current AUTOMAT- | 
| [1С chains. | 
Е each ee ыы ба —— ——— алы дарды —— EEE J 
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Table PT. Phase PT Storage Allocation AUTOMATIC Storage 


Ga a ta ы дында ИО у fon ae Wye ea = 


БИНЕ Зайсан C LK OEC EC See ee Stee tg а pe oo 1 


|Main Processing| | 


| Statement or Operation Type | Routine 


— —— «мә «е «е» «м» «ме «ме «шы «ме «ке er ee «ы» «лы» ee ee — re «ше ee ee «ше «же «е op «ше «лы» «ме» «кке ee ee «м- 


|5сапв stacked CONTROLLED chain for |MYNAM 
| largest dope vector | 


— — — — — — — — — — е а — өле «ке «ғо «м. өне «м» е-е cee «ке «ке «к» ce «м» ee ee — «м» me г). —— ee «ме чш шш ——— a 


jAllocates storage for workspace and|DSA10 
|for DSA addressing vector | 


ле SOF — «ее «ә» 8 «ле» «ее жм» «һе» «ле» — — өлме «е» «ее чира рац a— жым — —— == «же e — — «м» «к- —— «-- «м дз аә на чар аф te ce cee ме — 


|Allocates storage for parameters |DSA19 


а —— ee — ee «ж» ee eo шш «ме «м» шш «ме чч шше шш шы — ж 


|Allocates storage for double preci-|DSA25 
|sion variables | 


|Allocates storage for single preci-|DSA29 
[sion variables 


| 
Shee i e LL Сы сада ыы (€ MÀ 
|Allocates storage for character | DSA38 
|strings | 
асы Se сана LLL EI a LC 4----------- 
|А11осағев storage for bit strings |DSA46 
get ae m D A Eu і----------- 
|Allocates storage for arrays and | DSA54& 
[secondary dope vectors | 
c a ER ET +----------- 
|А11осағев storage for structures | DSA68 
se ap a ee ets een eee ee в +----------- 
|Gets VDA and initializes dope vec- |DSA72 
[tors for adjustable regions of | 
| AUTOMATIC chain | 
алысса сасады қадалса E ды адалы ee і----------- 


— — m «лме aam A «лек өк» «ке «лм» «өм» кесе «си» «ле» «лке — өле» «еее «ке  — нь арн «м» — ee «ке «же ee — «А» «же ана we --- еш re re ""— ә. 
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Subroutines Used | 


eas See Sar ызы ere See 1 
|DVSIZE | 
} Г 
|MKSTAT | 
} 
| MKSTAT | 
Е Бао шігіл ere a 1 
| None | 
| t 
|COPY, DVSIZE, INITDV, MKSTAT, | 
| STDVIN | 
EE тан ыы Ары шысы эзы ле се сді | 
| None | 
тшшш ое: EEE ан а 
| None | 
саса ac E 1 
|None | 
| | 
| None | 
| | 
| None | 
| | 
yaa osepee Neige ecce cede ніні 1 


—— — — — — —— «е еке «ша «м» «е À еә «ме «жә a «м» «е «ме «се «шы жы» «м» «ле dum «ле» we Uum we deum «ми» «ғы» «ж» 


—— — «ке — «кке «> еш» «шә «е» M —— «е» «мә «шь өш» «к» — «шә өле «ше «ша «ме «ке- «ки» «каз «ши» шш «лы» «ж» € шш шш 


Table PT1. 


Phase PT Routine/Subroutine Directory 


|Routine/Subroutine| | Function 000000000077 | 
|com 00000 Есен... | 
eet ЕТЕ code to сору skeleton dope vector into real dope vector. | 
а р ENTRY type 1 chain scan and DSA. | 
Р |Allocates slots for ON conditions. | 
RM jAllocates standard save area and flag bytes. | 
[Бак |Allocates storage and workspace for DSA addressing vector. | 
pene |5сапв AUTOMATIC chain and allocates dope vectors. 
Bena |Allocates BUY workspace. | 
ӘЛЕ (РО) |Allocates storage for parameters. | 
oe (PU) РИНЕ storage for double precision variables. | 
eee (PU) |Allocates storage for single precision variables. | 
TA. (PU) | ALlocates storage for character strings. | 
ШЕТІ (PU) |Allocates storage for bit strings. | 
АЕА |Allocates storage for arrays and secondary dope vectors. | 
е |Aliocates storage for structures. | 
05272 ее dope vectors for adjustable regions of AUTOMATIC chain. | 
| DSA7U Селен pointer to skeleton second file statement. | 
EM See storage for DEFINED items. | 
| DSA161 |Allocates storage required for dope vectors. | 
insat |Compiles code to initialize dope vectors. | 
Frere oe VDA for this region of AUTOMATIC chain if required. | 
шабы (PU) eee size of dope vectors. | 
ЖЕТТЕН еле code to initialize address slot in dope vector. | 
АЕ ete a second file statement. | 
T Е CONTROLLED chains. | 
ВЕБЕ (РО) Же code for secondary dope vectors. | 
|етрутн [тате ден structure member dope vectors. | 
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Table ОЕ. Phase QF Storage Allocati 


on Prologues 


(a ee ту a ee зда баа раро ee RE 1 
| |Main Processing | | 
| Statement or Operation Type | Routine | Subroutines Used | 
}----------------------------------- ІҺ---------------4----------------------------------- 1 
|5сапв text for statement labels, |СЕ0000 | СВЕСЕР, QBPROL, QEOP, ОМОУЕ, QPROL, | 
| PROCEDURE statements, BEGIN state- | | 061. | 
|ments, BEGIN END statements, апа | | | 
jend-of-program marker | | | 
І----------------------------------- (вае кс ессе І----------------------------------- 1 
|Ргосеввев statement label pseudo- |051 | OMOVE | 
|code items | | | 
І----------------------------------- І--------------- І----------------------------------- 1 
|Frees text storage at end of phase; |ОЕОР | ОМОУЕ | 
|releases control | | | 
----------------------------------- ІҺ---------------І-----------------------------------і| 
[Creates stereotyped prologue for a |QBPROL JQADJAL, OFSKIP, 0Ғ0201, QMOVE | 
|ВЕСІМ block requiring a dynamic | | | 
|storage area | | | 
be M RP porco es Е eu SI uad e cuum 1 
[Creates stereotyped or special |QPPROL |QADJAL, QFSKIP, 0Ғ0201, QMOVE, | 
|prologues for PROCEDURE statements, | | CONPRL | 
{depending on conditions. Processes] | | 
[statement label pseudo-code items | | | 
І----------------------------------- һ---------------- І----------------------------------- 1 
|Creates а compiler label marking | OBEGEP |QADJAL, 0Ғ0201, QMOVE | 
{the return from a BEGIN block | | | 
|----------------------------------- І--------------- Іі----------------------------------- 1 
|Creates a prologue for ON biock | CONPRL |QADJAL, ОЕ5КІР, 0Ғ0201 | 
----------------------------------- І---------------1-----------------------------------4 
|Assembles code to initialize DSA | OADJAL | ОМОУЕ1 | 
|dope vector data areas, and to | | | 
jallocate variabie data areas | | | 
----------------------------------- %---------------4-----------------------------------4 
|Skips second file statements | OFSKIP |None | 
|£ollowing a block heading statement | | | 
----------------------------------- 4---------------4-----------------------------------1 
{Obtains new buffer and chains it %0|0Ғ0201 | None | 
Ithe previous опе | | | 
----------------------------------- І--------------- ----------------------------------- 1 
|Moves input text being skipped from|QMOVE | None | 
jinput buffer to output buffer | | | 
-----------------------------------і|--------------- 4-----------------------------------1 
| Мсуеѕ a second file statement, | ОМОУЕ1 | ОМОУЕ | 
|pointed at by PARI, to the prologue] | | 
[being generated | | | 
О sn canard seals e e eee pia es тшшш Кышын е зы ee ан ала ы ы J 
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Table QF1. 


— Hr шш эшш 
| Routine/Subroutine 


ce == — —— «еее — —  — n «ке» «ке» e v «ғы» na lo aem «қ» «ме «м» «же me «ке «ме —— «м «ше «и» «ше «шә «ше «мә «м» еме өше «же «е «жи «и» «мы» «ки» «әм» «же» ee «ше ee «ле» ee еке «лм» we «ж» «ы» «ка» «аң» «ле» «ле» «лар «ли» == = = «ғи» «м» Фа «ке ee «ке» ee ee «шь жы» «м» еш» «жо «ж» 


| OBEGEP |Сгеағев а compiler label marking the return from а BEGIN block. 
теле (QG) атка stereotyped prologue for а BEGIN block requiring a dynamic 
| |Storage area. 

m ее text storage at end of phase; releases control. 

Зей (06) eer second file statements following a PROCEDURE or BEGIN state- 
| | ment. 

Iouem oe text for statement labels, PROCEDURE statements, BEGIN state- 
| |ments, BEGIN END statements, and end-of-program marker. 

ТІ (QG) TM code to output buffer; obtains new buffer if required. 
Ре теше for external procedure. 

ЕЕ КЕДЕ prologue for GET DSA. 

m |Tests for return expression. 

ener За» code to copy argument and target addresses. 

es aces for entry points. 

ТТ |Тевев end of chain. 

РЎ poses end of first region. 

БИЙГЕ |Extracts mapping code from second file. 

ШЕТ {Tests for storage required. 

РЯ ee VDA accumulator assignment code from mapping code. 

FEM TON text from input buffer to output buffer. 

nom NE second file statement to prologue being generated. 

aus (QH) | ees prologue for ON block. 

ТӨТЕН (QG) ТЕКЕЙ stereotyped or special prologues for PROCEDURE statements, 
| |depending on conditions. 

[ost [госел statement label pseudo-code items. 


Phase QF Routine/Subroutine Directory 
——À——— —— —————— ————— HÓA 
| 


Function 


lAssembles code to initialize DSA dope vector, variable data areas, 
land to allocate variable data areas. 
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Table QJ. Phase QJ Storage Allocation Dynamic Storage 
Е a t a eee a ee аны дыны Er pe ee E Ie C ey pe es Oe ee ЕЧ 1 
|Маіп Processing| | 
| Statement or Operation Type | Routine | Subroutines Used | 
----------------------------------- 4---------------1-----------------------------------1 
|General scan of text for ALLOCATE, |651 |ALLOC, BUY, BUYP, FREE, ТЕГІ. | 
|BUY and FREE statements | | | 
----------------------------------- І---------------і1-----------------------------------4 
|Allocates items not requiring dope |AL20 |AL15, TRF2 | 
| vector | | | 
І----------------------------------- аста оаза 55S TEES ае 1 
|Generates code to move skeleton | MOVEDV | TRF2 | 
[dope vector into workspace for | | | 
jcontrolled variables | | | 
----------------------------------- І---------------І-----------------------------------і 
|Looks ahead to reverse pointers for|REVPT |651, TRF1 | 
| ALLOCATE statements | | | 
----------------------------------- Іі--------------І-----------------------------------і1 
|А11осағгев storage for controlled | AL28 |651, LIBC1, LIBC2, SCANSF, TRF2 | 
| string | | | 
----------------------------------- Ң--------------4-----------------------------------1 
{Allocate storage for controlled | AL27 |ABOUND, LIBC1, MOVEDV, PREVAL, | 
jarray | |SCANSF, TRF2 | 
----------------------------------- 4---------------І-----------------------------------і 
|Allocates storage for controlled | AL29 | BNDEXP, LIBC1, MOVEDV, NXTREF, | 
| structure | |NXTVAR, PREVAL, SCANSF, TRF2 | 
----------------------------------- І---------------1-----------------------------------і 
{Loads Library call parameter reg- |FREE | TRF2, TRF3 | 
jister to free allocated storage | | | 
----------------------------------- %---------------1-----------------------------------і| 
|Моуев skeleton dope vector for | BUYP | TRF2 | 
| bought temporary | | | 
----------------------------------- 4---------------4-----------------------------------і4 
|Ваув storage for temporary array | BY14 |SCANSF, TRF2 | 
----------------------------------- %---------------4-----------------------------------і1 
| Buys storage for temporary struc-  |BY13 |LIBC4, NXTREF, NXTVAR, SCANSF, TRF2| 
|ture | | | 
xp E асы uU I а qoc peces есі даан оен оа 4 
{Places initial value code line for |А115 | NXTRF, SCANSF | 
[controlled variables | | | 
----------------------------------- І---------------І-----------------------------------4 
|Skips scan register over initiali- |SKIPTX |651 | 
| zation statements | | | 
І----------------------------------- þrenna І----------------------------------- 1 
|Generates code to set a pointer to |PREVAL | TRF2 | 
|Еһе previous allocation. | | | 
----------------------------------- о 
|Searches dimension tables for | ABOUND | SCANSF | 
{adjustable bound expressions | | | 
----------------------------------- І---------------1-----------------------------------4 
|Generates code for temporary varia-|STMP | БІВСЗ, TRF2 | 
|bles requiring only a dope vector | | | 
c ———— ——— c '— a ——! абыл ықы та ы» К — ЕЕ А PER SR ae a es қы тысына 1 
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Table 021. 


| 
[ABOUND (ОК) 


DS (ок) 
ГЕ 

ӨТ” (QK) 
КЕ (QK) 
arae (QK) 
RS (QK) 


| 
| BNDEXP 


| 
| BUY 


ee 
|BY13 
ROT 
lovis 
e (ок) 


| 
|951 


| 
| LIBC1/LIBC2/LIBC4 


|5ТМР (QK) 
| 


| 
|ТЕРІ 


| 
| TRF2 


MOVEDV (QK) 


NXTREF (QK) 
NXTVAR (QK) 


PREVAL (QK) 


Phase ы Routine/Subroutine Directory 


|Searches dimension tables for adjustable bound expressions. 


|AScertains the type of allocate statement. 

Е initial value code line for controlled variables. 
jAllocates items not requiring dope vector. 

|Allocates storage for controlled arrays. 

[Allocates storage for controlled strings. 


|Allocates storage for controlled structures. 


|Generates or extracts code to set the adjustable bounds of struc- 


| tures 


| 
|Ascertains the type of buy. 


[Moves skeleton dope vector for bought temporary. 


|Ваув storage for temporary structure. 


|Buys storage for temporary array. 


[Buys storage for temporary string. 


[Loads Library call parameter register to free allocated storage. 


| 
|General scan of text for ALLOCATE, BUY, 


and FREE statements. 


|Places the library calling sequence for controlled storage in 


| sequence in the text. 


[Generates code to move skeleton dope vector into workspace for con- 


|trolled variables. 


|Obtains the next structure base element reference. 


|Obtains the next varying array base element reference. 


|Generates code to set a pointer to the previous allocation. 


|Looks ahead to reverse pointers for ALLOCATE statements. 


|Places second file statement in line in the text. 


|Skips scan register over initialization statements. 


|Generates code to buy storage for temporary variables which 
|require a dope vector. 


{Transfers input text to output. 


|Adds text skeletons to the output text. 


| 
ie the Library calling sequence to the output text. 


only 
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Chart 09, Register Allocation Logical Phase Flowchart 
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Phase RA Overall Logic Diagram 
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Table RA. Phase RA Register Allocation Addressibility Analysis 


(PSS SSS er re Mei que OAT ee fot ee ee ee ee арадан 1 
|Маіп Processing| 


| Statement or Operation Type 


[Controls scan of source 


Ы------------------------------ 


| Processes RX, RS, or SI instruc- 


| tions 


{Compiles code for start of PL/I 


|Statement: 1. with label, 


|Wwithout label, 3. compiler label 


өле ce чл» uo чыз» эш» «лы» «ом» cum aum аш» «ғын Ga» Qua» dip тие «не RAD «аи ED «ши» «км» cuum жыт AD Ra tm um a «м» 


|Processes PROCEDURE and BEGIN 


| blocks 


| нн 


|Ргосеввев END statements оп PROCE- 


| 00КЕ or BEGIN blocks 


ee өлше «ме» «өл» ш ee «ла» ee —— ce «ле» «ал» шы ee шш «ше re ee ee еше «а» «м» «мыз чето «м» «ме «мә 
— — — — «әже «ее — ee «же «ке «ке е-е — «ме ee — а «ыма аша re «к» —— «ме «аң «ке «е eee «ке «к» «м» 
— «лме ee «әле «кл» жел ea Dum «ңы quam сше ew cm «қаз UU MP «ке» que «ее «ме «ше «ке 
— — «әле «аш» «әл» «ке» «ки» «ыл» же» «ле» өше «кы» dis сше «кы» aas ағы» «әле» UE GU єз «ке dem «қ» өле que ошо «мә «м» «м» 


lObtains next insertion file buffer 


Е ------------------------------------------------------- 


|Examines dictionary reference in 


| source 


ame qee ame «ле» ашы «кас «лл» «әле «лы» өше» лы» чаше ee ee ee ee en ee «ше» «ше «ша» өрле i «шқ» we i «ә чыгь чить чаю нию «әле «ғ» «мм» «же жш» 


| Produces recovery code when literal|ADTEST 


loffset greater than 4095 is met 


| Routine | Subroutines Used | 
— —  — 1 
| LAA |ACT1, ACT2, ACTS, АСТ8, ACT9, | 
| | АСТ10, ADCBUF, СЕТЗВЕ | 
4---------------4----------------------------------- 1 
| ACT3 |ADTEST, DRTEST | 
| | | 
d--------------- }-------~----~---------------------- 1 
| ACTU |ADTEST, DRTEST | 
----------------------------------- І---------------4-----------------------------------1 
|ACT15, ACT14, |АрСВОЕ, GENFLP, UPSN | 
| ACT16 | | 
| | | 
ł---------—- 1----------------------------------- 1 
| ACT6 | ADCBUF | 
| | | 
quee A a оннан DNE a a E 1 
| ACT7 | ADCBUF | 
| | | 
}----------- Һ----------------------------------- 1 
| ADCBUF | GETCBF | 
і----------- %----------------------------------- 1 
| ADIBUF | GETIBF | 
}----------- }----------------------------------- { 
| GETSBF | None | 
1----------- %----------------------------------- 1 
| GETCBF | None | 
і----------- І----------------------------------- 1 
|СЕТІВЕ | None | 
I-—— E epus ота UE ейран qao шы шш 1 
|DRTEST |ADINST, DECOMP, SETBLK | 
| | | 
+ І----------------------------------- 1 
| ADCBUF | 

| | | 
%----------- %----------------------------------- 1 
| ADINST |ADCBUF, ADIBUF | 
| | | 
З БЕЕК ЕЕГ КИЕВЕ РИ Кешш сс шал ЛИНА D E СЕЛЕ сш ре J 
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Table ВА1. 


Phase RA Routine/Subroutine Directory 
"Е ЕЕ a E pn en ee ЫШЫ ee eee 1 
| 


Routine/Subroutine | Function 

рса о оо. (Copies iun api яар тикка ЕЕ oon mom | 
| ACT2 IN non-special five-byte item to output. 

| ACT3 ее RX, RS, or SI instructions. 

M c АМИРИ 55 instructions. 

| АСТ5 |End of block routine. 

| ACT6 eee PROCEDURE and BEGIN blocks. 

| ACT7 m END statements on PROCEDURE or BEGIN blocks. 

T lend of source text routine. 

ub faction of start of common block of prologue. 

acris Pee at end of prologue. 

| АСТ12 СА absolute code to output stream. 

| ACT13 ТИЕ ADI instruction at prologue insertion point. 

|АСТ18 logie code for start of PL/I statement with label. 

| ACT15 TM code for start of PL/I statement without label. 

| ACT16 leone ion code for start of PL/I statement compiler label. 

e e ааа store of calculated address. 

meant |Adds text to output string. 

TE |Adds text to insertion file. 

m ТЕБІНЕ coded addressing instructions. 

ppt on Sadis recovery code when literal offset greater than 4095 is met. 
aab |Tests whether previous offset is out of bounds. 

 BEGUNE NEIN dictionary reference. 

ошер (ЕВ) denda dictionary reference in source. 

Ine cone step table and generates addressing instructions. 

eae сетей code to set bits on and off іп а prefix ON-slot. 
ТЕ ТЕН next output buffer. 

ore |Obtains next insertion file buffer. 

еле Comer next source buffer. 

Бай ead input text. 

eee TES addressing instructions to IN-LINE. 

ТЕТУ |Finds block number of referenced item. 

| UPSN МЕРЕ code to keep the statement number slot in the DSA up to 
RE roc Т КТГ Рк a ет 


bes LL genes «еее «ле — «әке KM сыана MX — жәен жесе MP M жәшек еее» «ем» алина «кке» — оныда — ee —M MÀ — көле» НА ST өкпе —— — —— — «к--- кешен ee M «еее ж-е — ce желкен € шекте «ее-е cee MEM SE «еее Se келет «е-е —í— өне. 


Table RF. 


Phase RF Register Allocation Physical Registers 


| ama EM C a [See en тше ea a See 1 


|Маіп Processing| | 


| Statement or Operation Type | Routine | Subroutines Used | 
----------------------------------- %---------------1-----------------------------------1 
[Controls scan of text |29 | ADCBUF, ADIMOV, BR1, BR3, ВВЦ, | 
| | |GETNXT, LBAL, LBALR, LBCTR, LEOB, | 
| | |LEOP, LR1, LR3, LR4, LR6, LR7, 189, | 
| | | LSHIFT, OBREGS | 
}----------------------------------- %--------------- %----------------------------------- 1 
|Processes PROCEDURE or BEGIN state-|LPROC | None | 
| ment | | | 
}----------------------------------- і------------- --4----------------------------------- 1 
| Processes end of PROCEDURE or BEGIN|LEND | None | 
| block | | | 
}----------------------------------- 4--------------- І----------------------------------- 1 
|Processes requests for registers;  |OBREGS | BRGUSE, FRTEST, LOAD, | 
Jallocates physical registers | | STORE1, STORE2, REGUSE | 
----------------------------------- 1---------------1-----------------------------------1 
| Compiles. code to store symbolic | STORE2 | ADCBUF | 
| registers | | | 
----------------------------------- 3-------------- І----------------------------------- 1 
|Compiles code to store assigned | STORE1 | ADCBUF | 
| registers | | | 
----------------------------------- і--------------- 4----------------------------------- 1 
|Сопрі1ев load of physical registers|LOAD1 | ADCBUF | 
-----------------------------------4--------------- %-----------------------------------4 
|Scans list of free registers to | FRTEST | None | 
| маке even-odd pair- | | | 
----------------------------------- --------------- І----------------------------------- 1 
|Compiles load register | LOADRG | ADCBUF | 
-----------------------------------і--------------- %-----------------------------------і 
|Expands coded addressing instruc-  |ADIMOV | ADCBUF | 
| tions | | | 
----------------------------------- І---------------1-----------------------------------1 
[Adds to output buffer | ADCBUF | None | 
йена оды аы es ен та э л зекетке шр р дыш Басы ақса ашы шшш Чеш сш Pe ee М ыт = 1 
Table RF1. Phase RF Routine/Subroutine Directory 
SS te үн р Ел ЙЕ БЕ ЖЕНЕН сі ит 
| Routine/ Subroutine] Function | 
TER wp ih a E a даа 4 
| ADCBUF JAdds to output buffer. | 
| | | 
| ADIMOV |Expands coded addressing instructions. | 
| | | 
| BRGUSE |Tabulates use of base register in look-ahead. N | 
| | | 
|BR1 (RH) |Processes RX branch instructions. | 
| | | 
|BR3 (RH) |Processes BCT instructions. 1 
| | | 
{BR4& (RH) | Processes RR branch instructions. | 
| | 
| FRTEST |5сапв list of free registers to make even-odd pair. | 
| | | 
| GETNXT |Obtains next block. | 
| | | 
|LAD1 (RH) {Processes AD1 (addressing) instructions. | 
| | | 
[LB (RH) |Constructs and puts out completed instruction. | 
ш ee ee et A Pee Seas а адын ——————————— "e RP RÀÀ 
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Table RF1. 


г--------------- 
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| 
|LR7 (RH) 
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Ж 
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+---------- 


| Processes 


| Processes 


| Processes 


| Processes 
|Loads end 


| Processes 


| Processes 


Phase RF Routine/Subroutine Directory (cont'd) 
РМА сла ш Ds REO Pe зына айты ese REX RETURNED NONE \ 


Function | 
sore e e MC C ЕСТЕ | 
BALR instructions. 

BCTR instructions. 
DROP pseudo-instruction. 
of PROCEDURE or BEGIN block. 


end-of-block marker. 


end-of-program marker. 


|Compiles load of physical registers. 


|Сопрі1ев load register. 


| Processes 


| Processes 


PROCEDURE or BEGIN statement. 


instructions in which first and second operands require 


Jloading, and the first is altered, e.g., AR. 


| Processes 


| Processes 


| Processes 


floating-point instructions. 


SS instructions. 


|operands are changed, e.g., ST. 


| Processes 


| Processes 
[апа it is 
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| Processes 


SI instructions. 


instructions in which no load of first operand is needed, 
changed, e.g., LA. 


shift instructions. 


|Tests whether all registers are available. 


| Generates 
| Generates 


|Main text 


| Processes 


| 
| Tabulates 


stores of registers if branch in or out. 

code to load registers. 

scan. 

requests for registers; allocates physical registers. 


use of registers in look ahead. 


{Compiles code to store assigned registers. 


|Compiles code to store symbolic registers. 


|Extracts ADIs at prologue insertion point. 


| |Controlling scan of text. 
————— НС A 
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Chart 10. Final Assembly Logical Phase Flowchart 
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Chart TA. Phase TA Overall Logic Diagram 
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Phase UF Overall Logic Diagram 
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Table TA. Phase TA Final Assembly DCLCB Generation 


аа аа pT Oe лд шты te ean үу ae | dnm NILUM ES cc a ЖКО MMC ан a ны ЧА ЖАНЫ О te ee ЫЧ 1 
|Main Processing | 


| Statement or Operation Type | Routine | Subroutines Used | 
[Scans STATIC chain = [110100 = Hio тәш . 7 c9 | 
l Generates DECLARE control block  |IL0110 lcuxart, нү SSS | 
| entry | | | 
| ----------~------------------------ }+-~------------ }~---------------------------------- 1 
|Generates OPEN control block entry |IL0120 | CHKATT | 
[Generates INCLUDE cards [110200 танас, PUN 7 | 
Table ТА1. Phase TA Routine/Subroutine Directory 
|Routine/Subroutine| _ юлт 000000000000 | 
т о |Checks attributes and creates control words. 00000000000 | 
REY (TB) {Checks environment options, and inserts them into DECLARE control | 
| | blocks. | 
m (TC) ТЕКТЕ string of module names for inclusion in control blocks. | 
T е” point from compiler control. | 
ШЕТІ To STATIC chain | 
ЕТІ NE DECLARE control block entry. | 
124454 one point for environment entry. | 
Кре m point from environment processing. | 
а ВЕРИЯ file attributes entry. | 
T НЕМІ point of SYSPRINT file found. | 
ТЛ” INDE OPEN control block entry. | 
PL m INCLUDE cards. | 
ET rere point in INCLUDE card output routine. | 
inane тазе MAIN flag. | 
[128207 {Releases control. | 
T Ри cards | 
liuc ЕЕ ЕЕ ЕЕ В РРР ER TP o ышы шы лы Sm ыш 1 
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Table TF. Phase TF Final Assembly Pass 1 


SS, ee ee qoum Sa ee ee a aaa a aa 
|Main Processing| 
| Statement or Operation Type | Routine | Subroutines Used 
алалы ы et a ala he a 4---------------4----------------------------------- 
|5сапв text 1110024 | None 
|----------------------------------- +--------------- %----------------------------------- 
|Аввідпв offsets to labels 1110019 |ЕІМЕО1, NEXTSL 
oT ee ass t fan fn a 
|Increments location counter for 1110014 | None 
{machine instructions | | 
Ee pa tee a eS ИЕ E |---------------4----------------------------------- 
|Determines code for instructions {110020 | FINEQ1 
[which refer to labels | | 
MT сала CBS ee een АДЫ ЛЫН СОЛЕНИ A A 
|initializes location counter at | 1L0010 | None 
|start of procedure | | 
}--~-----------~-------~------------ -z-e І----------------------------------- 
{Stores size of procedure and {110011 |None 
|resumes containing procedure | | 
Lucie шалмалы алы ама дады ЕВЕ НЕЕ СЕРЕ ЧЕР eee Senate Қаланы ас ee Se a ИРА 
Table TF1. Phase TF Routine/Subroutine Directory 
foe SSS mem. i necu ee en ee ee ee es et a eR eee баны 
j Routine/Subroutine | Function 
| FINEQ1 |Тосафез label number table entries. 
| 
{ 110000 |Entry point from compiler control. 
| 
| IL0003 |Entry point to scan from initialization routine. 
| 
{110010 |Iinitializes location counter at start of procedure. 
| 
{110011 [Stores size of procedure and resumes containing procedure. 
| 
{110014 |Increments location counter for machine instructions. 
| 
{110015 |Processes the start of prologues. 
| | 
| 150017 |Releases control. 
| | 
| iL0019 {Assigns offsets to labels. 
| 
1110020 |Determines code for instructions which refer to labels. 
| 
[110022 |Ргосеввев end-of-block pseudo-code item. 
| | 
| 1.0024 | 5сапѕ text. 
| 
| NEXTSL [Determines multiple statement label entries in dictionary. 
Goo ee ыз OI cara ao ee Ses pana aime sees ee E сасыса СВИНИНА ee АНАН, as 
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Table TJ. 


Phase TJ Final Assembly Optimization 


Ss Ng UID VIR eee ETE teh eee ae oe APT Е ЕЕ ТР а ИР q 


|Main Processing| 


| Statement or Operation Type | Routine | Subroutines Used | 
[Controls phase = > [IL0000 [OPTIMA 0 | 
але location conter for. аа IUS POTETE Seem | 
|machine instructions | | | 
[assigns offsets to labels [nouo [COMRTN, FINEQl, ивр | 
[Determines code for instructions  |ILO020 7 а | 
|which refer to labels | | | 
[initialize location counter at {шодо о ә” =] 
[start of procedure | ! | 
----------------------------------- І-Н--------------І-----------------------------------і1 
{Stores size of procedure for |І10011 |Мопе | 
|тасһіпе instructions | | | 
[Reduces number of MVC instructions |IL0027 7 lorrssm, озин | 
[Determines offset from a given |OFFSET о (fea, CLE | 
[dictionary reference | | | 
oU REM ЕВЕ ОЗЕЛЕНЕНИИ АИ ee Бшш 225 ыл ынаны шшш шшш Е ыды лыны 1 
Table Т1. Phase TJ Routine/subroutine Directory 
[Routine/Subroutine| ^ Function 000000000000 1 
сомы — меттен ТИЕР E ынта тарта ыы | 
КҮНІ РА label number table entries. | 
Tu [Controls phase. | 
Payee atii point to scan loop from initialization. | 
eee ТИГРА location counter at start of procedure. | 
ТТІ ЕЛЕР size of procedure and resumes containing procedure. | 
РИТА | Processes machine instructions, etc. | 
md TM location counter for machine instructions. | 
ere РРР offsets to labels. | 
Peer TEM code for instructions which refer to labels. j| 
ТІР (Еді pseudo-code item length and updates text pointer. | 
110027 КІН МУС instructions. | 
E ря new ADCON needs. Sets location counter to zero. | 
rer Е content of containing procedure. | 
ГОРИ гайре for equivalent statement labels. | 
Үн (тк) тасар е offset from a given dictionary reference. | 
EN eene text. | 
|озмать [сапа ahead for literal offsets. | 
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Table To. 


Phase TO Final Assembly External Symbol Dictionary 


[dog О ee a op an Pe eg Я Я И WO I EEUU иж ина RE акыны діктен ee ЧЫЙ 1 


|Main Processing| 


| Statement or Operation Type | Routine | Subroutines Used | 
----------------------------------- і%---------------4-----------------------------------4 
[Constructs first six standard ESD [16401 |MOVE, NAME, ERROR | 
| entries | l | 
-------------------------------- ---4--------------- %----------------------------------- 1 
{Constructs entries for external [16001 | MOVE, ERROR | 
|procedure labels | | | 
----------------------------------- %--------------- %----------------------------------- 1 
{Constructs PR type entries for еасһ |16030 | MOVE, NAME | 
{block and procedure | | | 
----------------------------------- 4---------------4-----------------------------------і 
|Constructs entries for external | 15050 | MOVE, ERROR | 
jvariables and external entry names | | | 
----------------------------------- І---------------І-----------------------------------1 
|Constructs entries for controlled |16090 |МОУЕ, NAME, ERROR | 
{variables and task names | | | 
pM deu шшш ше жалады ы ыл ашы» aa gU alU шш J 
Table TO1. Phase TO Routine/Subroutine Directory 
puce eco eem | mica uM DE E EE M CC C El AES кап сет CE m Pc E p d cr EM M E M E 1 
| ROUTINE/SUBROUTINE | FUNCTION | 
ЕЕ НОВИН a a a a И a a ыыр ae Мыш 4 
| ERROR |Truncates over-length external identifier, generates error message. | 
| | | 
|16001 [Constructs entries for external procedure labels. | 
| | 
[16030 |Constructs PR type entries for each block and procedure. | 
| | | 
|5050 {Constructs entries for external variables and external entry names. | 
| | | | 
| 15055 |Ргосеввев ON-conditions and external variables. | 
| | | 
{15080 {Processes external entry names. | 
| | | 
| 16085 |Processes FILE constants. | 
| | | 
116090 |Constructs entries for controlled variables and task names. | 
| | | 
|26093 |Inserts name in ESD entry for CONTROLLED. | 
| | | 
116801 |Constructs first six standard ESD entries. | 
| | | 
| MOVE | Moves ESD entries to card buffers, and puts out buffer when full. | 
| | | 
| NAME |Generates names for pseudo-registers. | 
becuase шазааданы | — — Há———Á——À— ie——— M ———————Ó—— ME 
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Table TT. Phase TT Final Assembly Pass 2 


pru xeu ME mc EE Duy e то nue gt оаа mme ME TOUS IAE Im 1 
|Main Processing | | 

| Statement or Operation Туре | Routine | Subroutines Used | 
}----------------------------------- 4--------------- І------------------ ----------------- 1 
[Scans text [110002 | None | 
— —— P —— A! À ]"—9 I — a — n }---~------------------------------- 1 
|Generates text for RR instructions |110012 | GENTXT | 
----------------------------------- 4---------------4-----------------------------------і| 
{Generates Text for RX non-branch {110013 |EOBRTN, GENTXT, OFFSET | 
linstructions LM, STM, and SI Types | | | 
}------ ----------------------------- 4--------------- І----------------------------------- 1 
|Generates text for shift instruc-  |IL0027 | GENTXT | 
| tions | | | 
}-----------------------------------}--------------- %----------------------------------- 4 
|Generates Text for SS instructions |IL0014 |EOBRTN, GENTXT, OFFSET | 
----------------------------------- 4---------------1-----------------------------------4 
|Sets up trace information and num- |IL0019 | GENTXT | 
|bers compiler labels | | | 
І----------------------------------- 1--------------- %----------------------------------- 1 
|Generates text for branch and load |IL0020 |ЕТМЕО1, GENTXT, OFFSET | 
[address instructions | | | 
----------------------------------- 1--------------- І----------------------------------- 1 
|Initializes location counter at 1110010 | PUNCHT | 
|start of procedure | | | 
}----------------------------------- І--------------- %----------------------------------- 1 
|Resumes containing procedure at епӣ| 110011 | PUNCHT | 
lof procedure 1 | | 
----------------------------------- І--------------- 4----------------------------------- 1 
|Моуев Text into card image | GENTXT | PUNCHT | 
----------------------------------- %---------------4-----------------------------------41 
| Punches cards ensuring that RLD | PUNCHT | CARDOU | 
|cards follow reiated TXT card | | | 
ЕО Ss eae йч E о ее ылы uc Жыл шшш шнш шшш ыш шышы МЫ ілі 1 
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Table TT1. 


Phase TT Routine/Subroutine Directory 


|Routine/subroutine| шы 1 
[carbou — на... v 7 | 
ee € to next input text block. | 
КЕНЕС | Locates label number table entries. | 
ore |Moves text into card image. | 
| 10002 |5сапв text. | 
20068 |Entry point to scan from initialization routines. | 
| 10010 [Initializes location counter at start of procedure. | 
285021 TN TE containing procedure at end of procedure. | 
110012 ОТ Е text for RR instructions. | 
earners ee text for RX non-branch branch instructions, LM, STM, and | 
| |5І type. | 
non Е text for SS instructions. | 
(155625 Браз the start of prologues. | 
ЖТ ете the end of prologues. | 
| 110017 |End-of-text routine. | 
ТЕ ааъ: up trace information and numbers compiler labels. i 
TS ТТЕ? text for branch and load address instructions. 
10025 |End-of-block routine. | 
1110027 ети text for shift instructions. | 
ЕРЕ (TU) {Determines offset and relocation pointer from given dictionary ref- | 
| | erence. | 
| PUNCH [Punches cards ensuring that RLD cards follow related TXT card. | 
E — ——m: А ы ————— —— Á— — ———————— ———— ——— s 1 
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Table UA. Phase UA Final Assembly Initial Values, Pass 1 


= T ТЕЗ а о gee ee ee es TIE 1 
|Main Processing] | 

| Statement or Operation Type | Routine | Subroutines Used | 
----------------------------------- 4---------------1-----------------------------------і1 
|5сапв STATIC chain to beginning of |04001 |0А200, 0А220, UA230 | 
jexternal section | | | 
Tee ANC qi л л осте те ее я а e нае зма шшш: 1 
{Initializes scalar variables | 04200 | TXTMOV | 
----------------------------------- І---------------4-----------------------------------4 
|Initializes BCD for label [UA220 |RLDMOV, TXTMOV | 
----------------------------------- 4---------------4-----------------------------------і 
{Initializes DED for temporary 19А230 | TXTMOV | 
----------------------------------- І---------------1-----------------------------------1 
|Initializes address constants. [04010 | ОАЦ01, UA403, ОАЧОЧ, 0А405, 0А406 | 
----------------------------------- І---------------4-----------------------------------4 
|initializes symbol table entries [UA080 | RDLDMOV, TXTMOV | 
----------------------------------- І---------------І-----------------------------------і 
|Initializes address slots for |0А403 | RDDMOV, ТХТМОУ | 
|external variables | | | 
Е Se ee ae REDE [=н ора канала AEN ca NR MEE CE a 1 
{Initializes address slots for func-|UA401 |RLDMOV, TXTMOV | 
{tions and programmer-defined ON- | | | 
jcondition names | | | 
-----------------------------------і--------------- І-----------------------------------і 
| Initializes address slots for label|UA404 | RLDMOV, TXTMOV | 
| constants | | | 
я en a ee ee E ната ааа a 1 
|Initializes address slots for entry|UA405 |RLDMOV, TXTMOV | 
| labels | | | 
Pc tae tae eee re a eee eats ке d noue ak еше SENSE 1 
|Initializes file attribute entries |UA406 |RLDMOV, TXTMOV | 
jand files | | | 
-----------------------------------|--------------- о 1 
|Initializes constants pool |UA014 | RLDMOV, TXTMOV | 
-----------------------------------4--------------- І-----------------------------------4 
jInitializes dope vector skeletons |08021 | TXTMOV | 
-----------------------------------4--------------- І-----------------------------------і1 
|initializes argument lists [04025 |RLDMOV, TXTMOV | 
bao se ee ee ee dl ccr E Du ыла — 'Á(———À ЕБ 1 
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Table UA1. 
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Phase UA Routine/Subroutine Directory 


|Routine/subroutine| ^ Function 000000000777 | 
[OUTPUT (UB) = [Moves card images to punch and/or load file. 000000 | 
| RLDMOV (UB) iE RLD entries to card buffer. | 
ores (UB) |Moves TXT entries to card buffer | 
eee |Entry point from compiler control. | 
Ше (52445 STATIC chain to start of external section, to initialize | 
| [scalar variables. | 
БЕ T point for branches taken in first scan. | 
бай |initializes address constants. | 
2013 ев point for branches taken in second scan. | 
ШІ (UC) [Initializes constants pool. | 
Аб НТ dope vector skeletons. | 
ШЕТ (UC) Е text for dope vector skeleton. | 
| va025 {Initializes argument lists. | 
fee one point for branches taken in last scan. | 
on (UC) {Initializes symbol table entries. | 
|Un100 (UC) Е one-word CSECT 'IHEMAIN'. | 
ЕТІ oer from UA to compiler control and UD. | 
Пу” J Initializes scalar variables. | 
ПЕРТ (UC) ТАА BCD for label. | 
е (UC) oe to label routines for label variable BCDs. | 
е (UC) eae DED and FED for temporary. | 
| 0А401 ТТТ address slots for functions and programmer-defined ОМ- | 
| |condition names. | 
ҮТТЕ ТКЕН address slots for external variables. | 
ЕТ” {Initializes address slots for label constants. | 
Pare А address slots for entry labels. | 
fect кн DECLARE control blocks for files and file attributes | 
| | entries. | 
КӨТ, |Makes text for file attributes entry. | 
ere (UC) ТЕТЕ array variables. | 
Тен (UC) ізін arrays of varying strings. | 
genuit (UC) ETE bit arrays. | 
|201 (UC) [completes packing of bit strings in structures or arrays. | 
rU ы ы MEM кеннен a IERI lS T KR P 1 


Table UD. 


Phase UD Final Assembly Initial Values, Pass 2 


ptem ee I T eee ыб UMP 1 
|Маіп Processing| | 


| Statement or Operation Type | Routine | Subroutines Used | 
----------------------------------- 1---------------І-----------------------------------і 
[Scans STATIC chain to beginning of |04001 |UA200, UA220, UA230 | 
lexternal section | | | 
----------------------------------- %---------------4-----------------------------------4 
|Initializes scalar variables | 04200 | TXTMOV (UB) | 
ee ee a ee АЫ ыл Шш д AT —————— M———————MÓ—Á—————ÁÁ— 
|Scans STATIC chain to initialize [UA003 [UA300, UA320, UA340, UA360, UA365 | 
[internal dope vectors | | | 
----------------------------------- %---------------4-----------------------------------1 
|Initializes dope vectors for 19А300 IRLDMOV (UB), TXTMOV (UB) | 
Jinternal strings | | | 
----------------------------------- І--------------- 4----------------------------------- 1 
|Initializes dope vectors for inter-|UA320 |RLDMOV (UB), TXTMOV (UB) | 
jnal data arrays | | | 
-----------------------------------і--------------- І-----------------------------------4 
|Iinitializes dope vectors for arrays]|UA340 | TXTMOV (UB), UCUPDT (UC) | 
|ОҒ varying strings | | | 
-----------------------------------4--------------- %----------------------------------- 1 
| Initializes dope vectors for inter-|UA360 |RLDMOV (UB), TXTMOV (UB) | 
|па1 label arrays | | | 
-----------------------------------1--------------- І-----------------------------------і 
{Initializes dope vectors for inter-|UA365 [UA300, UA320, UA360 | 
[nal structures | | | 
----------------------------------- %---------------4-----------------------------------і 
|Initializes arrays |9А030 | RLDMOV (UB), TXTMOV (UB), | 
| | |9СІМІТ (UC) | 
І----------------------------------- І---------------4----------------------------------- 1 
|initializes structures | VAO 40 |ТХТМОУ (UB), UA200, 0С0800 (UC), | 
| | | TIDY (UC) | 
------------------------------------ І---------------1----------------------------------- 
|Initializes one word CSECT | UA100 |OUTPUT, RLDMOV, TXTMOV (all in UB) | 
| 'IHEMAIN' | | | 
----------------------------------- І---------------І-----------------------------------і| 
{Initializes CSECT for STATIC [UA1005 |OUTPUT (UB), UA030, UA200, UA300, | 
jexternal variables | |91320, UA360, UA365, 0А401, 0А806 | 
----------------------------------- —  ——— -4 
|Makes up END card and terminates [UA120 |OUTPUT (UB) | 
| phase | | | 
----------------------------------- І---------------4-----------------------------------і1 
|initializes array variables JUCINIT (UC) | TXTMOV (UB), 0С0080 (UC), TIDY (UC) | 
ITE ae Boe VE Peau rS ВЕ АЧИ УН E cc end 1 
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Table 0р1. 


| Rout ine/Subrout ine | Function 

|UA000 — |Entry point from UA and compiler control. = > 
оба ИКИ STATIC chain to start of external section, to initialize ѕса- 
| |lar variables. 

КЕН TEN point for branches taken in first scan. 

5005 (Бейс: STATIC chain to initialize all dope vectors for internal 

| Jables. 

ИЛО jStart of scan for arrays and structures. 

134536 Е arrays. 

ТЯ е РЕА RLD entry for label array virtual origin. 

18655 ТҮМЕН point for branches taken іп array scan. 

fener Тен RLD entry for data array virtual origin. 

ere РЕ structures. 

eee (UC) БЕТЕР IHEMAIN CSECT. 

EE netus point for branches taken in external scan. 

freer Nees up END card and terminates phase. 

oor {Initializes scalar variables. 

ene |Lists label variables. 

nso |Initializes dope vectors for internal strings. 

Et IN dope vectors for internal data arrays. 

Те |Initializes dope vectors for arrays of varying strings. 

| АЗ60 НЕТ dope vectors for internal label arrays. 

| A365 |Initializes dope vectors for internal structures. 

19А401 |lInitializes address slots for functions and programmer-defined ON- 
| | condition names. 

РҮ кн DECLARE control blocks for files and file attributes 

| Jentries. 

ОЕ pini talles: CSECTs for STATIC external variables. 
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Phase UD Routine/Subroutine Directory 


vari- 


ы жам» «әле a «келе — aÀ— жекке өшеке e болыс e D —À i D D D E қалы» жеме м алымы» RAED UES «шш» көшкен GE жатан SD a S «ате» SR D D a— O — — — D — — ames a ian. aena іші 


Table UF. Phase UF Final Assembly Object Listing 
ааа аиы сае аена а a EU IET que SID Se a Cun a” шулан 1 
| |Маіп Processing] | 
| Statement or Operation Type | Routine | Subroutines used | 
------------------------------------ І--------------- Іі----------------------------------- 1 
|5сапв Text | IL0002 | None | 
----------------------------------- %---------------4-----------------------------------1 
[Lists RR instructions {110012 |РЕІМІТ, RRRTN | 
}-----------~------------------------ }--------------- }----------------------------------- 1 
|Lists RX non-branch instructions |110013 |ВХЕТМ, PRINIT, PRNTOU, PRNTVF, | 
| | | SECOND | 
}----------------------------------- }--------------- }----------------------------------- 1 
|Lists SS instructions 1110014 |EOBRTN, PRINIT, PRNTOU, SSRTN | 
----------------------------------- 1---------------4-----------------------------------1 
{Lists shift instructions 1110026 | PRINIT, PRNTOU, PRNTVF | 
----------------------------------- І---------------І-----------------------------------і1 
|Lists LM and STM [110027 |PRINIT, PRNTOU, PRNTVF, SECOND | 
І----------------------------------- І--------------- І----------------------------------- 1 
|Lists SI instructions | IL0028 |CHARVF, PRINIT, PRNTOU, PRNTVF | 
| | | SECOND, SSRTN | 
о Іі--------------- 4----------------------------------- 1 
{Lists branch and load address {110020 | 110013, NAMEIT, NAMEQU, PRINIT, | 
J instructions | | RRRTN | 
iv a EMI ME ЕН СВ ЗОО Иа кіс занына ы же 1 
{Lists labels [110019 |МАМЕУЕ, NEXTEL, NEXTSL, | 
| | |PRNTLC, PRNTOU, PRNTVF, STATMN | 
м а 1 
|Lists procedure names {110010 |NAMEVF, NEXTEL, PRNTOU, STATMN | 
----------------------------------- 4---------------4-----------------------------------і 
jLists ends of procedures | 110011 | NAMEVF, NEXTEL, PRNTOU | 
----------------------------------- і---------------1-----------------------------------| 
|5сапв ahead for literal offsets; | SECOND | EOBRTN | 
jinserts second instruction byte | | | 
|into print image | | | 
----------------------------------- %--------------- %----------------------------------- 1 
|Сепегаеев listing of text for base |SSRTN, BXRTN |ABSOFF, ADDEND, NAMEIT, NAMEQU, | 
joffset pair | | PRNTVF | 
|~---------------------------------- %--------------- І----------------------------------- 1 
|Names generated label number | NAMEQU |DECINT, FINEQ1 | 
----------------------------------- 4---------------4-----------------------------------1 
|Inserts location counter value, and|PRINIT | PRNTLC | 
{hexadecimal and mnemonic operation | | | 
|сойев in print line | | | 
}------------~---------------------- --------------- ———— — 1 
|Moves variable length item into | РЕМТУЕ | PRNTOU | 
| variable field part of print line | | | 
----------------------------------- %---------------4-----------------------------------4 
{Lists statement numbers | STATMN | STATNO | 
----------------------------------- І---------------1-----------------------------------4 
|Determines name and offset from | NAMEIT |БЕСІМТ, HEXINT | 
|dictionary reference | | | 
ЗЕЕ талы тын ексек nee et TET ГЕМЕ en аа De ee ы Bere сал сы a ee ы 1 
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Table UF1. Phase UF Routine/Subroutine Directory 


es eer eee ааа T Ier E EIU T TEE 1 
|Routine/Subroutine | 


|ABSOFF 0000 ыы 22.21. 
КЗ }Appends signed literal offsets to operands. | 
ЕТ Кене listing of text for base offset pair. | 
е (UG) отед one character in variable field of print line image. | 
еі (UG) nd binary to externally coded decimal. | 
D |Chains to next input block. | 
aor зве label number table entries. | 
ЕТЕ (UG) arene binary to externally coded hexadecimal. | 
(10000 Ре point from compiler control. | 
ELE РЕР text. | 
БЕТ Кт to scan from initialization routines. | 
БТ (UG) ieee procedure names. | 
бола (UG) Те ends of procedures. | 
ПЕТТИ tees RR instructions. | 
oon ЖОГ RX non-branch instructions. | 
| 110014 ine SS instructions. | 
ЕГЕ ете the start of prologues. | 
ЕТ арыда the end of prologues. | 
0017 |End-of-text routine. | 
ТТ foe compiler generated label numbers. | 
ЕТ (UG) {Lists labels. | 
ЛТ nee branch and load address instructions. | 
| 110026 ТРЕ shift instructions. | 
1150097 ТЕГЕ LM and STM. | 
TT UR SI instructions. | 
| 720032 ener SS decimal instructions. | 
21008 (06) ERN "*PROCEDURE" followed by entry names and statement number. | 
estes |Identifies operands. | 
| NAME TIT Е: name and offset from dictionary entry. | 
нано Nene: generated label number. | 
|NAMEVF (UG) aes a variable name in the print line. | 
2. (UG) oe dictionary for multiple entry labels. | 
ЕН es ra a ———— сы ыы а ыла ышы былды —Á— a етді) 1 
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Table UFi. Phase UF Routine/Subroutine Directory (cont'd) 


Pe re ee sm re Se ИЕ У DN eT ee a ee ЫНЫ 1 
| Routine/Subroutine | Function 


| NEXTSL 
ООВ 
M. 
| PRNTLC 
ee 
БИШР 
RE 


| 
| SECOND 


|5сапв dictionary for multiple statement labels. 


| 


{Common return point іп naming routine. 


|Prints location counter value, hexadecimal, and mnemonic op codes. 


{Converts location counter to hexadecimal; places it in print image. 


|Prints a line. 


|Moves variable length item into variable field part of print line. 


[Generates RR format listing of text. 


{Scans ahead for literal offsets; inserts second instruction byte 
Jinto print image. 


|Lists statement numbers. 


{Converts statement number to decimal. 
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Table XA. Phase XA Error Message Editor 


Jit to print buffer. 
| 


| ХА110 (XB) |Моуев identifier from dictionary entry to the print area. 


| | 
| ZUPL [DEEDES a line on SYSPRINT data set. 


Пред а казар ee pa а аа ааа да а БЕЛОН Pe eee ceu eee ee 1 
|Main Processing| | 
| Statement or Operation Type | Routine | Subroutines Used | 
----------------------------------- ---------------4-----------------------------------4 
|Determines whether error messages |ХА | None | 
|are to be printed | | | 
---------------------------------:-4--------------- %----------------------------------- 1 
|5сапв error message text skeletons |ХА8 |ХА50, ХА70, ХА90, ХА110, ZUPL | 
rana prints them out | l | 
Шы а қазалы net pe E ge ee te ді Е a ыы —————— re anand 
Table XA1. Phase ХА Routine/Subroutine directory 
— — тылын лы сата салы сына ean E E E a ЕЕ шшш 4 
| Routine/Subroutine] Function | 
рІ------------------ І-------------------------------------------------------------------- 1 
| ХА |Determines whether error messages are to be printed. | 
| | | 
| XAO |Sets severity code. | 
| | 
|ХА01 |Establishes which message types to suppress. | 
| | 
| ХА1 |Counts number of error chains to be processed. | 
| | 
| XA2 |Puts out messages if there are no diagnostics. | 
| | | 
| XAG {Prints out "COMPILER DIAGNOSTIC MESSAGES". | 
| | | 
| XA7 |First scan of message chains. | 
| | | 
| XA8 |Scans error message text skeletons and prints them. | 
| | | 
| ХА9 (XB) |5сапв to head of next non-empty chain. | 
| | 
| ХА12А [Selects and prints header for messages of given severity. | 
| | | 
|XA30 (XB) [Gets next entry in message chain. | 
| | | 
|ХАЗ2 (XB) |Builds up first part of message іп buffer. | 
| | | | 
|ХАЗ5 (XB) |Ассеввев message skeleton. | 
| | | | 
|XA40 (XB) |Puts out completed message. | 
| | | 
[ХА50 (XB) |Moves message text to print buffer. | 
| | | 
| ХА70 (XB) |Converts binary statement number to character representation, and | 
| |moves it to print buffer. | 
| | | 
| ХА90 (XB) |Converts binary numeric value to character representation and moves | 
| | 
| | 
| 
| 
| 
1 
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This appendix relates the logical 
phases, physical phases, and modules con- 
tained within the physical phases. The 
compiler name is IEMAA. 


PHYSICAL 
PHASE MODULES DESCRIPTION 


Compiler Control 


AA Controls running of 
compiler 

AB Performs detailed ini- 
tialization 

AC Writes records on 
intermediate file 
SYSUT3 

AD Performs interphase 


dumping using TESTRAN 
AE End of read-in phase 


AF Controls system genera- 
tion compiler options 


AG Closes SYSUT3 for out- 
put, reopens for input 

AM Phase marking 

BX 48-character set prep- 
rocessor 

JZ Builds second half 


phase directory 


Compile-time Processor Logical Phase 


AS Resident phase for 
compile-time processor 
AV Initialization phase 
for compile-time proc- 
essor 
BC BC, BE, BF Initial scan and tran- 
slation phase for 


compile-time processor 


BG BG,BI Final scan and replace- 
ment phase for compile- 
time processor 


BM BM, BN Error message printout 
phase 
BW Cleanup phase for 


compile-time processor 
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Read-In Logical Phase 


СІ 


CL 


CO 


CS 


CV 


CA 


cc 


CE 
CG,CI 
CK 
CL,CM 
CN 
CO,CP 
CR 
CS,CT 


CV, CW 


Read-In phase common 
routines 


Read-In phase common 
routines 


Keyword tables 
Read-In pass 1 
Keyword tables 
Read-In pass 2 
Keyword tables 
Read-In pass 3 
Keyword tables 
Read-In pass 4 


Read-In pass 5 


Dictionary Logical Phase 


EG 


EI 


EL 


EP 


EW 


EY 


FA 


FE 


FI 


FK 


FO 


EG 


EH, EI,EJ 


EK, EL, EM 


EP 


EW, EX 


EY,EZ 


FA,FB 


FE,FF 


FI 


FK 


FO, FP 


Initialization 


First pass over DECLARE 
Statements 


Second pass over 
DECLARE statements 


Constructs dictionary 
entries for PROCEDURE, 
ENTRY and CALL state- 
ments 


Constructs dictionary 
entries for LIKE attri- 
butes | 


Constructs dictionary 
entries for ALLOCATE 


Checks context of 
source text 


Changes BCD to dic- 
tionary references 


Checks validity of dic- 
tionary references 


Rearranges attributes 
Constructs dictionary 


entries for ON- 
conditions 
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FQ FQ 

FT FT, FU 
FV FV, FW 
FX FX, FY 


Checks validity of 
PICTURE chain 


Dictionary 
house-keeping 


Merges second file 
Statements into text 


Processes identifiers 
for cross reference and 
attribute listing 


Pretranslator Logical Phase 


GA GA 

GK GK 

GP GP, GQ, GR 
GU GU, GV 
HF HF, HG 

HK HK, HL 

HP HP, HO 


Modifies I/O statements 


Checks parameter match- 
ing 


Second check on param- 
eters 

Processes CHECK condi- 
tion statements 
Processes structure 
assignments 


Processes array assign- 
ments 


Processes items defined 
using iSUBs 


Translator Logical Phase 


IA IA, IB 

IG IG 

IM IM, IN, IO 
ТР, ТО 


Stacks 
operands 


operators and 
Preprocessor for gener- 
ic functions 


Processes generic func- 
tions 


Aggregates Logical Phase 


JK JK, JL, JM 


JP JP 


Structure processor 


Checks DEFINED chains 


Pseudo-Code Logical Phase 


LA LA 
LB LB, LC 
LD LD 
LG LG, LH 
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Utility scanning phase 


Generates triples to 
initialize AUTOMATIC 
and CONTROLLED scalar 
variables 


Constructs dictionary 
entries for initialized 
STATIC scalar variables 
and arrays 


Expands DO loops 


LR 


LS 


LV 


MG 


MI 


NA 


NG 


NJ 


NM 


NT 


NU 


OB 


OE 


LR 


LS, LT, LU 


LV 


LW, LX 


MB, MC 


MG, MH 


MI, MJ 


ML 


MM, MN, MO 


MP 


MS, MT 


NA 


NG 


NJ, NK 


NM, NN 


NT 


NU, NV 


OB, OC 


OE, OF 


Initialization for 
Phase LS 
Converts expression 


triples to pseudo-code 


Provides string han- 
dling facilities 


Converts string triples 
to pseudo-code 


Constructs pseudo-code 
for pseudo-variables 


Constructs  pseudo-code 
for in-line functions 


Constructs pseudo-code 
for in-line functions 


Constructs pseudo-code 
for in-line functions 


Processes generic entry 
names 


Processes CALL and 
function procedure 
invocations 
Reorders BUY and SELL 
statements 
Constructs pseudo-code 


for subscripts 


Generates pseudo-code 
for branches, RETURN 
triples, etc. 


Generates Library call- 
ing sequences for DELAY 
and DISPLAY statements 


Generates Library call- 


ing sequences for ехе- 
cutable RECORD-oriented 
input/output statements 


Generates Library call- 
ing sequences for exe- 
cutable STREAM-oriented 
input/output statements 


Pre-processor for NU 
Generates Library call- 


ing Sequences for 
data/format lists 


Processes compiler 
functions and pseudo- 
variables 

Constructs pseudo-code 


for assignments 


OG OG, OH 


05 OS, OT, OU 


Generates library 
calling sequences 


Converts constants to 
required internal form 


Storage Allocation Logical Phase 


PD PD 

PH PH 

PL PL, PM 

PP РР 

РТ PT, PU 

ОЕ OF, OG, OH 
29 QJ, QK 


First STATIC 
allocation phase 


storage 


Second STATIC 
allocation phase 


storage 


Constructs 
tables and DEDs 


symbol 


Sorts AUTOMATIC chain 


Allocates 
storage 


AUTOMATIC 


e 


Constructs prologues 


Allocates DYNAMIC stor- 
age 


Register Allocation 


RA RA, RB 


RF RF, RG, RH 


Logical Phase 


Processes 
mechanisms 


addressing 


Allocates physical reg- 
isters 


Final Assembly Logical Phase 


TA TA,TB,TC 
TF ТЕ 

TJ TJ,TK 

TO TO, TP 

TT TT,TU 

UA UA, UB, UC 
UD 

UF UF, UG, UH 


Error Editor 


XA XA, XB 


XF-YX 


Appendix A: 


printed, 


Guide to Phases and Modules 


Constructs DECLARE con- 
trol blocks 

Assembly first pass 
Optimization 

Produces ESD cards 
Assembly second pass 


Final 
values, 


assembly initial 
first pass 

initial 

second pass 


Final assembly 
values, 


Produces listings 


Determines 
there are 
nostic messages 
and 
prints them 


whether 
any  diag- 
to be 
if SO, 


Contain diagnostic mes- 
sages 
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APPENDIX В: RESIDENT TABLES 


There are three resident tables: the 
dictionary, the keyword tables, and the 
phase directory. The dictionary is resi- 


dent through part of the compilation; the 
formats of the dictionary entries are fully 
described in Appendix С. The keyword 
tables are resident during the read-in 
logical phase, and the phase directory 
throughout the compilation. 


ORGANIZATION OF KEYWORD TABLES 


The read-in phase is divided into five 
passes containing the modules shown in 
Figure 7. 


Modules CA and CC contain routines which 
are common to all five passes. Successive 
blocks of routines overlay the areas used 
in the first pass by modules CE, CG, and 
CI. The keyword tables are held in separ- 
ate modules (CE, CK, CN, and CR) which must 


each be less than 1,024 bytes (1K) long. 
1 
prose з | 
| | | 
| СА || 
| | | 
L-.-------— 1 > Common Routines 
| 
г-------- 1 | 
| cc || 
сес таза” 1 | 
1 
Sea Sea a aac i ca aa mr as 
| | | 
== 3c Ajo pee 3 | о ge 1 | 
| CE | | | ск | | | CN | | 
Сесе 11 ee J | t-------- 3 | 
| | | 
(eese ere 4 qo pees т. do ee Т: | 
| | | | | d | | | 
| cG | | | Ch | | | со || 
| | | | | | d | | 
с=ш=н» J | t------- J | t------- J | 
| | | 
ЕЕ qb dq eee gl up 3. 4 
| | | | | d | | | 
| сі | | | cM | | | €? | | 
| |]. | | 1 
ыша ы 3 | t------- 3 | Жазасы. 1 | 
| | | 
Pass 1 | Pass 2 | Pass 3 | 
Figure 7. Organization of Read-In Phase 
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to hold in 
which are 
The keyword 

following 


In this way it is possible 
storage only those keywords 
required for апу опе pass. 
tables are constructed in the 
manner. 


For ease of searching and modifying a 
keyword table, it is organized into two 
levels and by keyword length, as shown in 
Figure 8. 


The KEYWD routine is called by one of 
the statement Scanning routines, апа is 
supplied with a parameter which enables it 
to decide which set of keywords to look at 
(e.g., statement identifier, ON condition, 
miscellaneous). It does this by using the 
parameter to extract the required relative 
address (R(A),etc.) from the first level 
directory. The second level directory pro- 
vides the KEYWD routine with the means of 
reaching a table containing keywords of 
correct length; the KEYWD routine calls the 
KEYID routine, which scans the next signi- 
ficant item in the source text to obtain 
the length used in this look-up. 


cH RP ——— 
| 

г--------1 | г-------- 1 

| с ГГ | СВ | 

Ce gcc. оба 1 
| 

peces 1 | г-------1 

| | | 

| cs | | | су | 

| | d | | 

oat ete EE ee een J 
| 

г-------- 411! r-------- 1 

| i i | | 

| ст | | | си | 

| i l |! | 

toes И И се J 
| 

Pass 4 | Pass 5 


pem 1 
г-----------— 4 RCA) | 
| Е----- 4 First Level 
| г-і R(B) | Directory 
| | Е---- 
| | | REC) ү—-+ 
| | Е----- 1 | 
| 1 | |. | 
| | | | | 
| | | 
| | | 
lopesesee T. dope ЛЕ Талда 1 
А>] | в% | | с>] | Second 
}------ boo ғ---- {он { Level 
| | | | | | Direc- 
}------ { d { p——- { tory 
| | | | | | 
.------ о { ғ--- 1 
| | | | 
------ 1 | | 
| | 
|------ { 
| | 
| | 
Figure 8. Organization of Keyword Table 


FSTLVL ОС AL2(STATID - FSTLVL) 


DC AL2(ONID - FSTLVL) 


Format of Second Level Directory 


The second level tables contain relative 
addresses, which enable the KEYWD routine 
to reference a third level table containing 
keywords of the correct length. If one of 
these entries should contain zero, then 
KEYWD will interpret this as meaning that 
no keywords of this length exist in this 
table. 


STATID DC FL2'm' where m is smallest 
length in table 


DC FL2'n' where n is largest 
length in table 


DC AL2(STLm-STATID) 


DC AL2(STLn-STATID) where the 
symbols beginning STL are 
the symbolic addresses of 
the corresponding keyword 
tables 


Format of Third Level Tables 


The third level tables have a prefix 
byte containing the number of entries in 
this particular table followed by keyword 
entries. These consist of the keyword in 
internal code plus the replacement  charac- 
ter (keywords recognised as such are 
replaced by a single code byte). 


STLm DC ЕҺ1"х" where x is number of 
keywords in this table 


DC X'112315' keyword in internal 
code 


DC X'55' replacement in internal 
code 


DC X'393839' 


DC X'5A' 


Some keywords are not represented by one 
word (e.g., GO ТО, BY NAME, and clearly, 
the mechanism must be modified to cope with 
the second word. This modification is 
achieved by OR-ing a i-bit into the first 
bit of the first level. The presence or 


absence of this bit is tested by the KEYWD 
routine before the suspected keyword is 
compared. If the bit is absent, the pass 


through the routine is quick, as there is 
no possibility of an extra level search. 
If the bit is present, the keyword must be 


compared after the additional bit has been 
AND-ed out. If the comparison is equal, 
the two bytes following the replacement 


character are used as a relative address to 
reach the next level table. 


Format of Entry Requiring Additional 
Comparisons 


DC X'9726' GO + Х*1000' 
DC X*40° 


DC AL2(N XTLVL-*) Relative address 
of next level table 


The format of these extra level tables 
is similar to that for the third level. In 
this way, it is possible for national 
language keywords to replace single words 
by two or more words, if so desired. 


Appendix B: Resident Tables 291 


"да 


PHASE DIRECTORY 


Because of the number of phases in the 
compiler, the phase directory is split into 
halves. The first half is constructed 
during the initialization of the compiler; 
also a list of names of the phases in the 
second half is kept in Phase AA. This list 
is used to pass status indications (i.e., 
whether phases are wanted or not wanted) 
from the first half to the second half. 
Phase JZ uses the list to construct а new 
directory for the second half. 


The phase directory 
use of the BLDL macro and а build list. 
The format of the build list is fully 
described in the publication IBM System/360 
Operating System, Control Program Services, 
Form C28-6541. 


is constructed by 


Each entry in the build list is 30 bytes 
long. On returning from the BLDL macro, 
two bytes of the name field and ten other 
bytes of each satisfied entry in the  buiid 
list аге used to construct а 12-byte phase 
directory entry in the compiler control 
routines. The build list is destroyed 
after the initialization process is com- 
plete. 


The format of a phase directory entry is 
as follows: 


Byte Number Description 
Ts eZ Phase name 
3 Status byte 
8 - 5 Concatenation number and 
Library identification 
6 - 8 TTR of first text record; 
where TT is the relative 
track number, and R is the 
block number on that track 
9 - 10 Total amount of storage 
required 
11 = 12 Length of first text record 
Control Code Word -- CCCODE 


The format of the control code word 
(CCCODE), which is four bytes in length, is 
as follows: 


Byte Bit 


0 0 DUMP 1 wanted 


0 not wanted 
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л WN 


LIST 


LOAD 
DECK 
EXTREP 
XREF 


ATR 


CHAR 48 
MACRO 


SOURCE 


BCD 


OPT 


ов 


omn oF or oF 


or 


abort has occurred 


not wanted 
wanted 


not wanted 
wanted 


not wanted 
wanted 


not wanted 
wanted 


not wanted 
wanted 


not wanted 
wanted 


means U-format 
means F-format 
records on input 


if track overflow 


is present 


Severity code 
Severity code 
Severity code 
Severity code 


оҥ 


ою 


e в OF 


0000=FLAGW 
0001=FLAGE 
0010=FLAGS 


where 


not wanted 
wanted 


not wanted 
wanted 


not wanted 
wanted 


not used 


BCD input 
ECBDIC input 


not used 


wanted 
not wanted 


AE required 


program check 
has occurred 


means first record 
has been read 


means do not produce 
code for STMT 


not used 


APPENDIX С: INTERNAL FORMATS OF DICTIONARY ENTRIES 


describes the formats of 
dictionary entries during the compilation 
of a source program. The appendix is 
organized in the following manner: 


This appendix 


1. Dictionary entry code bytes 
2. Dictionary entries for ENTRY points 


3. Code 
entries 


bytes for. ENTRY dictionary 


ц. Dictionary entries for DATA, 


and STRUCTURE items 


LABEL, 


5. Code bytes for DATA, LABEL, and STRUC- 
TURE dictionary entries 


and OFFSET 2 
and STRUCTURE 


6. Uses of the OFFSET 1 
Slots in DATA, LABEL, 
dictionary entries 


7. Dictionary entries for: 


label constants 

data constants 

formal parameters 

FILE entries 

TASK and EVENT data 
internal library functions 
parameter descriptions 

ON conditions 

PICTURES 

expression evaluation workspace 
dope vector skeletons 
symbol table entries 
AUTOMATIC chain definitions 
DED dictionary entries 

FED dictionary entries 
temporary dope vectors 

BCD entries 

second file statements 


8. Dimension tables 


1. DICTIONARY ENTRY CODE BYTES 


The dictionary is used to communicate a 
complete description of every element of 
the source program, the compiled object 
program, and the compiler diagnostic messa- 
ges between phases of the compiler; the 
text describes the operations to be carried 
out on the elements. 


Each type of element has а charac- 
teristic dictionary entry, which is iden- 
tified by a code occupying the first byte 
of the entry. In general, each type of 


element has a different code byte, but in 
order to permit rapid identification of 
dictionary entries, the code bytes have 
been allocated on the following basis: 


First Half Byte 
Bit Bit 


Position Value Meaning 

0 0 entry has BCD 
1 entry has no BCD 

1* 0 entry is to be chained 
1 entry not to be chained 

2 0 not a member of structure 
1 member of structure 

3 0 not dimensioned 
1 dimensioned 


*This bit only applies to Phase FT which 
constructs the storage class chains by a 
sequential scan of the dictionary; later in 
the compiler, items with this bit оп‘ are 
added to the storage class chains. 


Second Half Byte 


In the second half byte, the following 
codes have the meanings shown: 


X'F' means data variable 
X'7' means label variable 
X'E' means structure 
The second and third bytes of every 
dictionary entry contain the length, in 


bytes, of the entry. If the entry has BCD 
(i.e., the first bit of the entry is zero), 
this length count does not include the BCD; 
instead, the BCD, which follows the main 
body of the entry, is preceded by a single 
byte containing one less than the number of 
characters of BCD. 


Using this general scheme, the code 
bytes allocated for dictionary entries 
appear in the following table. Code bytes 
in the table which have no corresponding 
description are not allocated. 


Statement label constant 

01 .Procedure or entry label 

02 GENERIC entry label 

03 External entry label (entry type 4) 

0% Built-in function, e.g., DATE 

05 Temporary variable and controlled 
allocation workspace 

06 Built-in GENERIC label, 

07 Label variable 
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08 


OA 
OB 


OD 


OE 
OF 
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File constant 


Task identifier * 
Event variable * 


Data variables (not dimensioned ora 


structure member) 


Dimensioned label variable 


Dimensioned task identifier * 
Dimensioned event variable * 


Dimensioned data variable 


Label variable in structure 


Task identifier in structure * 
Event variable in structure * 
Structure item 

Data variable in structure 


Dimensioned and structured label 
variable 


Dimensioned task identifier in 
structure 

Dimensioned event variable in 
structure 

Dimensioned structure item 
Dimensioned and structured data 
variable 


Formal parameter type 1 


8A 
8B 
8c 


8E 
8F 


ON CONDITION entry 


ENTRY type 1 -- from a PROCEDURE 
Statement 


BEGIN statement entries -- entry 
type 1 
ENTRY statement -- entry type 1 


Entry type 5 

Entry type 3 

Entry type 2 

Entry type 6 

Label variable formal parameter or 
temporary 

Constant 

File formal parameter or file 
temporary 


Task identifier formal parameter * 
Event variable formal parameter * 


Data variable formal parameter or 
temporary 


Invocation count dictionary entry 


Dimensioned variable formal parameter 
or temporary 
File attribute entry 


Dimensioned task identifier formal 
parameter * | 
Dimensioned event variable formal 
parameter * 


Dimensioned data variable formal 
parameter or temporary 


Structured label variable temporary 


AB 
АС 


АЕ 


ВЕ 
BF 
со 
С1 
с2 
сз 
сц 
С5 
C6 
C7 
C8 
C9 
сс 
ср 


CF 


2. 


Temporary or formal parameter 
structure 
Structured data variable temporary 


Dimensioned and structured label 
variable temporary 


Dimensioned and structured task 
identifier temporary * 
Dimensioned and structured event 
variable temporary * 

Dimensioned structure formal 
parameter or temporary 
Dimensioned and structured data 
variable temporary 


String dope vector for temporary 

DED2 entry 

Internal library function, e.g., 
conversion routines 

Compiler label 

Prefix ON list item 

Parameter lists 

Dope vector skeletons 

Symbol table entry or DED entry 

Error message, table entry, workspace 
requirement, etc. 

Record Definition Vector (RDV) entry 
Select a member from a generic family 
AUTOMATIC chain delimiter or Dope 
Vector Descriptor (DVD) entry 

ON condition entry 

Label BCD entry 

End of information in dictionary 
block 


— — — «кше «әк» a «мы» — a елі» «и» лш» «лы «ки» HX "— MÀ «ла» шш —— «ке» — «ме» M «км» P «әм» P «ғы» шш «м» шш  — шш — шш 


DICTIONARY ENTRIES FOR ENTRY POINTS 


Entry type 1 for PROCEDURE, BEGIN, and 
ENTRY Statements 


The format of an entry for a 


PROCEDURE 


Statement is as follows: 


Byte Number 


Description 
Code byte X'80*' 


10-11 


12-13 


14-15 
16-17 
18-19 


20-21 


22-23 


24-25 


26-28 


29-31 


32-34 


35-37 


38-40 


41-42 


Length 
Level 
Count 


Dictionary reference to the 
entry type 1 of the contain- 
ing block 


Dictionary reference of the 
dictionary entry for the 
first label that was 
attached to the PROCEDURE 
statement 


Dictionary reference to the 
entry type 1 of the next 
PROCEDURE or BEGIN statement 
in the source program 


The start of the chain of 
all AUTOMATIC variables 


Dictionary references to 
three dictionary entries 
indicating storage require- 
ments for workspace 


Dictionary reference of 
CHECK list 
Dictionary reference of 


NOCHECK list 


Dictionary reference of the 
first symbol table entry for 
this block 

DSA for this 


Size of the 


block 


Offset of the eight words in 
the DSA used for addressing 
the DSA: 


Offset of the storage used 
for the parameter list nec- 
essary in ап ALLOCATE- FREE 
statement 


Offset of the two-byte 
switch which is set on entry 
to a procedure and tested at 
a RETURN (expression) 


Offset of the four-byte slot 
which will contain the 
address of the first approx- 
imation of the target field 
(the address of the implied 
parameter) 


Dictionary reference of the 
entry type 1 of the first 


ENTRY statement of the pro- 
cedure. The entry type 1 
for PROCEDURE and ENTRY 
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statements of any one proce- 
dure form a circular chain. 
If there are no ENTRY state- 
ments іп а procedure this 
slot will contain the dic- 
tionary reference of the 
PROCEDURE'S entry type 1, 
i.e., of the entry іп which 
the slot occurs 


43 OPTIONS code byte 

44-57 Seven 2-byte dictionary ref- 
erences to dictionary 
entries for prefix options. 
Only those prefix options 


which are changed within the 
procedure have a dictionary 
reference. The remainder 
are zero. The order of the 
options in this list is the 
same as in the options byte. 
(See "Options Code Byte" in 
this Appendix) 


58 Options change byte. This 
byte contains a one bit for 
each prefix option which is 
changed within the proce- 
dure. Its format is identi- 
cal with the normal options 
byte 

59-61 Offset of workspace used in 

BUY statement 


62 2*n where n is the number of 
parameters at this entry 
point 

references of 


63 onwards N dictionary 


formal parameter type 1 
entries 
The format of an entry for a BEGIN 


similar to the above for the 
first 34 bytes. The initial code byte is 
X'81', and the dictionary reference іп 
bytes 8 and 9 is that of the first label on 


Statement is 


the original BEGIN statement, if any. If 
there was no statement label, then the 
Statement number occupies this slot. The 


presence of a statement number or statement 


label is indicated by a flag byte in 
position 35. This is set to SN for a 
Statement number, or to SL for a statement 
label. Bytes 36-53 contain the same as 


bytes 44-61 in a PROCEDURE entry type 1. 


The format for the entry type 1 derived 
from an ENTRY statement is as follows: 


Byte Number Description 
1 Code byte X'82' 


2-3 Length 
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10-12 


13 


14 onwards 


The labels 
Statement will 


Level 


Count 


Dictionary reference of the 
next member in the circular 
PROCEDURE-ENTRY chain 


Dictionary reference of the 
dictionary entry for the 
first label on the original 
ENTRY statement 


The offset of the 
entry point 


apparent 


2*n where n is the number of 
parameters 


n dictionary references to 
the formal parameter type 1 
entries 


on a PROCEDURE or 
be placed in the 


ENTRY 
dictionary 


according to the following format: 


Byte Number 


12-13 


14-16 


Description 

Code byte Х%01" 

Length 

Hash chain(STATIC chain) 
Pointer to transfer vector 
Statement number 

Other 1 code byte. (See 
"First code byte - other 1" 
in this Appendix.) The last 
bit will always be set to 
one, unless the label is the 
last label for a particular 
Statement, in which case the 
last bit will be set to 
zero. 


Pointer to entry type 2 


Spare bytes for final assem- 


bly. The pseudo-code phase 
dealing with RETURN 
(expression) will insert 
into these bytes а code 
which must be stored in a 
specific slot in the DSA 
whenever the procedure is 


entered via this label. The 
code is used by the prologue 
construction phase. Byte 16 
in the first label for each 
PROCEDURE or ENTRY statement 
will contain the number of 
labels associated with that 
statement 


17 


18 


19 


20 


21 


Entry Type 2 


Block level 


Block count 


Count of containing block 


BCD length-1 


BCD of label 


An entry type 2 describes the data 


attributes 
is as follows: 


Byte Number 


10-12 


13-14 


an entry point. The format 


Description 
Code byte X'85'. 


Length. 


Dictionary reference of 
entry type 3 


Offset, i.e., the position 
of the string dope vector in 
the DSA of the block to 
which the entry belongs. 
This will be zero if the 
item is not a string. 


DATA byte (see "DATA Byte" 
in this Appendix). 


Data information, which is: 


1. with numeric data, the 
precision and scaling, 
left justified 

2. for strings of fixed max- 
imum length, the binary 
version of the string 
length in the two left- 
most bytes of the data 
information 

3. for strings of adjustable 
length, the text ref- 
erence of a second file 
Statement giving the 
expression for the string 
length 


Picture table reference, if 
required. The storage allo- 
cation phase will change 
this to the dictionary  ref- 
erence of a DED entry, the 
picture table reference 
being moved into this refer- 
if necessary 


Entry Type 3 


Entry type 3 dictionary entries are 
constructed either from an explicit dec- 
laration or from implicit and default 
rules. Their format is as follows: 


Byte Number Description 


1 Code byte Х' 84° 
2-3 Length of entry. 
4-5 Dictionary reference of 


entry type 1 of PROCEDURE or 
ENTRY statement. 


6-7 Dictionary reference of 
entry type 2. This des- 
cribes the value returned 
when the label associated 
with this entry type 3 is 
invoked as a function. 


8-10 The offset in the DSA of the 
containing block of the 
first approximation of the 
storage for the value 
returned by this entry 
point, when it is invoked as 
a function. 


11 The entry code byte. (See 
"Entry Code Byte" іп this 
Appendix.) 


12-13 The dictionary reference of 
an item in the AUTOMATIC 
chain of the containing 
block. Entry type 3 entries 
feature in the AUTOMATIC 
chain of the containing 
block. 


14-15 Switch bytes. The pseudo- 
code phase dealing with 
RETURN (expression) inserts 
into these bytes the bit 
pattern of the code which 
will signify that entry to 
the procedure was by the 
label associated with this 
particular entry type 3. 
Phase ОҒ will use this to 
create MVI instructions. 


16-17 Dictionary reference of a 
SETS list. This will be 
zero if the attribute SETS 
was not specified. The for- 
mat of a SETS list is given 
at the end of this section. 


18-19 Dictionary reference of the 
dictionary entry for the 
label belonging to this 
entry type 3. 
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20 


21 


22 onwards 


22*2n- 
23*2n 


Status byte. This byte will 

contain X'00' or xP RO": 
X'00' indicates that the 
entry was constructed from 
an ENTRY declaration which 
had parameter descriptions. 
X'FO' indicates the entry 
was constructed either arti- 
ficially or from an ENTRY 
declaration which did not 
have parameter descriptions. 


2*n where п is the number of 
parameters. This is zero if 
the status byte is X'FF' 


If the status byte is Х' 00" 
there are n two-byte ref- 
erences of parameter  des- 
criptions. A parameter des- 
cription is a dictionary 
entry for the particular 
type of item but without a 
BCD. If one particular par- 
ameter is not described, 
i.e. if there are two adja- 
cent commas in the ENTRY 
attribute, then the dic- 
tionary reference is zero. 
When the status byte is 
X'FO* then an entry type 3 
is only 23 bytes long. 


DECLARE statement number 


SETS List Format 


Byte Number 


298 


6-5+2*n1 


6*2*n1 


7*2*n1 
onwards 


Description 
Code byte X'C8' 


Overall length of original 
BCD entry 


2*n1 where n1 is the number 
of identifiers in the SETS 
list. If * was specified, 
these bytes contain 2*n1*1. 


Dictionary references of the 
identifiers in the SETS 
list. 


n2, the number of para- 
meters in the SETS list. 


n2 numbers of one byte each. 
These are the parameter 
numbers and will be in 
ascending order. 


Entry Type 4 


Entry type 4 dictionary entries describe 


external entry points. 


follows: 


Byte Number 


12-13 


14 


15 


16-18 


19-20 


21-22 


23 


Their format is as 


Description 
Code byte x'03' 
Length 


Hash chain, later used 
as the STATIC chain 


Offset of the load constant 
in STATIC 


Offset in the DSA of the 
declaration block of the 
storage for the first 
approximation of the value 
returned. 


The dictionary reference of 


an item in the AUTOMATIC 
chain of the declaring 
block. Entry type 4 entries 


are members of the AUTOMATIC 


chain of the declaring 
block. 
The ENTRY byte. (See "ENTRY 


Byte" in this Appendix.) 


The DATA byte. (See “DATA 
Byte" in this Appendix.) 


Data information which is: 

a) with numeric data, the 
precision and scaling, 
left justified 

b) for strings of fixed max- 
imum length, the binary 
version of the string 
length in the two left- 
most bytes of the data 
information 


c) for strings of adjustable 


length, the text refer- 
ence of а second file 
statement giving the 


expression for the string 
length 


Picture table address if 
required. 


Dictionary reference of a 
SETS list 


Status byte. If this byte is 


X'00' the meaning is the 
same as the status byte in 
an entry type 3. If the 
byte is X'FF' it is implied 


24 


25 


25%2%п 
26%2%п 
27*2*n 


28*2*n 
onwards 


Entry Type 5 


that no parameters were des- 
cribed 


2*n where n is the number of 
parameters. This is zero if 
the status byte is X'FF' 

n dictionary references to 
parameter descriptions as in 
an entry type 3 

Level 

Count 


BCD length-1 


BCD of identifier 


Entry type 5 dictionary entries describe 


the 
ers. 


entry points which are formal paramet- 
They have the same format as 


entry 


type 4 except that: 


Byte 1 is x'83' 


Bytes 4 


and 5 contain the address of 


the formal parameter type 1 entry 


Bytes 6 to 8 contain the offset in 


the 


DSA of the declaring block of the 


address slot associated with a 


parameter 


formal 


No BCD is contained in the entry 


GENERIC Entry Point 


The 
as follows: 


Byte Number 


9-8+2п 


format for а GENERIC entry point is 


Description 
Code byte x'02' 
Length 

Hash chain 


DECLARE statement number 


2n, where n is the number 
of two-byte addresses  fol- 
lowing 


Pointers to entry type 4 

or 5, ENTRY labels, or BUIL- 
TIN entries. These entries 
are made when an identifier 


9ғ2п 
10*2n 
11%2п 


12%2п 
onwards 


is given the attribute GEN- 
ERIC. The pointers are to 
the entries which contain 
specifications of the var- 
ious possible 

attributes 


Level 
Count 
BCD length-1 


BCD 


3. CODE BYTES FOR ENTRY DICTIONARY ENTRIES 


ENTRY Code Byte 


This 
as follows: 
Bit Number 

1 


2 


code byte is used in ENTRY type 3, 
4, and 5 dictionary entries. 


The format is 


Description 
IRREDUCIBLE 


REDUCIBLE 

USES 

SETS 

SECONDARY 
RECURSIVE 

Has data attribute 


Not used 


Options Code Byte 


This code is used in entry type 1 
dictionary entries for PROCEDURE state- 
ments. The format is as follows: 

Bit Number Description 

1 REENTRANT 
2 Not used 
3 MAIN 

ц SECONDARY 
5 RECURSIVE 
6 OPTIONS 
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Ll. 


Not used 


Not used 


DICTIONARY ENTRIES FOR DATA, LABEI, AND 


———— 


STRUCTURE ITEMS 


Label Variables - Obtained from DECLARE 


Statement 


Byte Number 


300 


1 


12 


13 


14 


15 


Description 


Code byte may be Х'07*, 
X'17', X"27', Х*37*, X'87', 
ХО", АГ, X'B7'. Тре 


last four cases apply when 
the item occurred in a par- 
ameter list in а PROCEDURE 
or ENTRY statement. In this 
case, bytes 4 and 5 will 
contain the dictionary ref- 


erence of the corresponding 
formal parameter type 1 
entry. In the first four 
cases, bytes 4 and 5 ini- 
tially contain the hash 
chain. After the scan of 
the dictionary, this slot 
will be re-used to form 
another chain, е.4.,  AUTO- 


MATIC or STATIC chain 
Length 


Initially contains the hash 
chain. After the dictionary 
Scan, this is re-used to 
form another chain, e.g., 
AUTOMATIC or STATIC chain 


Offset inserted by 
allocation phase 
data item) 


storage 
(as fora 


DECLARE statement number 
"Other 1" code byte (See 


"First Code Byte - Other 1" 
in this Appendix.) 


'Variable' code byte (See 
“Variable Byte" in this 
Appendix) 

"Other 2' code byte (See 


'Second Code Byte - Other 2" 
in this Appendix.) 


'Other 3' code byte (See 
"Third Code Byte - Other 3" 
in this Appendix.) 

"Other 4° (See 


code byte 


16 onwards 


"Fourth Code Byte - Other 4" 
in this Appendix.) 


Content determined by varia- 
ble code byte. 


After variable information 


2 bytes Symbol slot 
1 byte Level 
1 byte Count 
1 byte BCD length-1 
BCD 
With the exception of the 2-byte symbol 


slot, the general format is the same as for 


a structure. 


Dictionary Entries for Data Items 


The format is as follows: 


Byte Number 
1 


Description 
Code byte may be X'OF', 
X'1F', X'2F', X'3F', X'B8F', 


X'9F', X'AF', or X'BF'. The 
last four cases apply when 
the item occurred in a  par- 
ameter list in a PROCEDURE 
or ENTRY statement. In this 
case, bytes 4 and 5 will 
contain the dictionary ref- 


erence of the corresponding 
formal parameter type 1 
епїгу. In the first four 
cases, bytes 4 and 5 ini- 
tially contain the hash 
chain. After the scan of 


the dictionary this slot 
will be re-used to form 
another chain, е.4.,  AUTO- 
MATIC or STATIC chain 


Length 
See above 


Offset. See "Format of 
Variable Information" in 
this Appendix 


DECLARE statement number. 
If the variable has not been 
explicitly declared, this 
number is zero; otherwise, 
it is the statement number 
assigned to the DECLARE 
Statement from which the 
variable was obtained. 


11-16 


17-19 


20-21 


22 


1 byte 


1 byte 


1 byte 


Six code bytes. These are: 
other 1, variable, other 2, 
other 3, other 4, and data. 
(See "Code bytes" in this 
Appendix for a description 
of these bytes.) 


Data information, which is: 


1. with numeric 
precision and 
left justified 

2. for strings of fixed max- 
imum length, the binary 
version of the string 
length in the two left- 
most bytes of the data 
information 

3. for strings of adjustable 
length, the text  ref- 
erence of a second file 
statement giving the 
expression for the string 
length 


data, the 
scaling, 


Symbol slot, 
either zero, 
following: 


containing 
or one of the 


1. If the SYMBOL and DED 
bits are not on, and the 
data item has a picture, 
these bytes contain the 
Gictionary reference of 
the picture table entry 

2. If the DED bit is on and 
the SYMBOL bit off, this 
slot points at a DED 
entry. If the item has a 
picture, the DED entry 
will contain the picture 
table address 

3. If the SYMBOL bit is on, 
the slot will point at a 
SYMBOL entry. This again 
will contain the picture 
address, if specified 


Variable information. The 
contents of these bytes are 
determined by the variable 
code byte. See "Format of 
Variable Information" in 
this Appendix 


Level 


Count 


BCD length-1 


BCD 


Major and Minor Structure Entries 


These 


Byte Number 
1 


entries 
ments, i.e., they do not have 
attributes or LABEL. 


do not include base ele- 
any data 
Their format is: 


Description 


Code byte may be X'2E', 
X'3E', X'AE', or X'BE'. The 
last two indicate that there 
is no BCD attached. When 
the identifier occurs in the 
parameter list of a  PROCE- 
DURE or ENTRY Statement, 
bytes 4-5 contain the dic- 
tionary reference of the 
formal parameter type 1 
entry. In the case of the 
first two code bytes, bytes 
4-5 of the entry initially 
contain the hash chain. 
This is later modified by 
Phase FT 


Length 
See byte number 1 


These bytes are used by the 
Storage allocator; they will 
finally contain one of the 
following offsets: 


1. For structures which are 
parameters, or are dynam- 
ically defined, the off- 
set from the start of the 
major structures dope 
vector or the minor 
structures dope vector. 

2. For major structures, the 
offset from the start of 
AUTOMATIC or STATIC of 
the address slot which 
will point at the struc- 
ture dope vector 

3. For CONTROLLED struc- 
tures, only that speci- 
fied for minor structures 
in 1, above 

4. For structures іп STA- 
TIC EXTERNAL the contents 
depend on the setting of 
the "dope vector 
required" bit in the 
"other 3" code byte. ТЕ 
this bit is off and the 
item is a major struc- 
ture, the slot contains 
the offset from the start 
of STATIC of the slot 
which will contain the 
address of the first byte 
of the structure. If the 
dope vector bit is on, 
the slot contains the 
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302 


11-15 


16 


offset from the start of 
STATIC of the address 
slot which will point at 
the structure dope vec- 
tor. The offset slot is 
not used in either of the 
above cases for minor 
structures 


DECLARE number, i.e. the 
statement number of the 
DECLARE statement which pro- 
duced the structure 


Five code bytes. These аге: 
Other i, variable, other 2, 
other 3, and other 4 


Variable information. The 


1 byte 
17 
1 byte 


1 byte 


content is determined by the 
variable code byte, and will 
always include the informa- 
tion required for structure 
members. The format is des- 
cribed under "Format of 
Variable Information" in 
this Appendix 


Level 
Block level 
Count 


BCD length-1 


BCD 


5. CODE BYTES FOR DATA, LABEL, AND STRUCTURE DICTIONARY ENTRIES 


The First Code Byte - Other 1 


pouce erum EDITI TOME EE 1 
| Bit | m | | 
| No. | Description | Set By | 
ļ----- І------------------------------------- 1------------------ 1 
| 1 | Symbol or requires load constant if | Phase EL, FT, GM | 
| | label constant. | ос NU | 
| | | | 
| oe | | 
| 2 | Defined оп | Phase EL | 
| | | | 
| | | , , | | 
| 3 | Mentioned in CHECK list | Phase FO | 
| | | | 
| | | | 
| ^ | Needs DVD | Various | 
| | | | 
| 5 | Last member in structure | Phases EL or EW | 
| | 7” | 
| 6 | Variable dimensions | Phase EL | 
| | | | 
17 | * dimensions | Phases EL and FT | 
| | | | 
| 8 | * string length for data item | Phases EL and FT | 
| | | | 
| | --More labels follow for a label | Phase EG | 
| | constant | | 
| | | | 
| | ---Мајог Structure - no member of | Phase EY | 
1 | the structure has а dimension or | | 
| | length attribute which is not * | | 
Eu Dec ic KD. RN UNE етектен Rande =e a ыш 4 
The Second Code Byte - Other 2 

fa и Peon == а Ой 1 
| Bit | Description | Set by | 
| No. | | | 
|----- н %------------------ 1 
| 1 | Dynamically defined | Phase EL | 
| | | | 
| 2 | CONTROLLED major structure with | Phase EY | 
| | varying strings | | 
| | | | 
|3 | NORMAL = О, ABNORMAL = 1 | Phases EI and FT | 
| | | | 
| 4 | Secondary | Phase EI | 
| | | | 
| 5 | Formal Parameter | Phase EI | 
| | | | 
| 6 | INTERNAL = О, EXTERNAL = 1 | Phase EI | 
| | | | 
|7 | 00 = AUTOMATIC or DEFINED or simple | Phase EL | 
| | parameter | | 
| апа | | | 
| | | | 
| | 01 = STATIC | Phase EL | 
| | | | 
| 8 | 11 = CONTROLLED | Phase EL 1 
cR: Rolls ln алалы uL ал ла d аланды е аш шаа 2 
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The Third Code Byte - Other 3 


Е анаты ee a ea ee шт [OH TSS SSS SS Seer eK SSS 1 
| Bit | | 

| Мо. | Description | Set by 
}-----}------------------------------- 4------------------------------ 
| 1 | Needs dope vector | Phases EK and EY if variable 
| | | dimension entries, variable 
| | | string length, or in 

| | | CONTROLLED storage; 

| | | Phase NU when item appears 
| | | іп ап argument list 

| | | 

| 2 | Needs DED | Phase NU 

| | | 

13 | Needs по storage for the item | Phase GP 

| | itself | 

| | | 

| 4 | Correspondence defined | Phase FV 

| | | 

| 5 | Chameleon | Phase GP 

| | | 

{ 6 | Sign bit for first offset | Phase PH for STATIC апа 

| | | Phase PT for AUTOMATIC 

| | | 

17 | Indication of the state of | Phase PH for STATIC and 

| | the value in the first offset | Phase PT for AUTOMATIC 

| | 0 = rubbish | 

| | 1 = good value | 

| | | 

| 8 | As above but for second | Phase PH 

| | address slot | 

Poe, ED Sec БЕСЕ em еы а е6 Кешн Oe к ә эши лы быы] 25562 
Ihe Fourth Code Byte - Other 4 

амны aaa ысын атадан ына m TSS SS 1 

| Bit | Гуя | | 

| No. | Description | Set by | 
----- S pHa 1 

| 1 | A constant has been produced | Phase JK | 

| | for this structure or array | | 

| | | | 

| 2 | 00 = Not temporary | Phase GP, HF, НК, | 

| and | 01 = Temporary type 2 | IM, or LB | 

і 3 | 10 = Temporary not sold | | 

| | 11 = With second skeleton | | 

| | dope vector | | 

| | | | 

| | | | 

14 | Member of defined structure | Phase FV | 

| | | | 

{ 5 | Packed = 0 Aligned = 1 | Phase EL | 

| | | | 

| 6 | Major structure | Phase EL | 

| | | | 

| 7 | No dope vector initialization | Phase GP | 

| | | | 

| 8 | A temporary type 2 which has | Phase OB | 

| | been incorporated in work- | | 

| | Space 1 or RDV required ] | 
sss Psst ae eee coe ee tei А ал ee Se J 
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Variable Byte 


Ce оран тиис E а ET 1 
| Bit | Description | 
| No. | | 
І-----І----------------------------------- 1 
{ 1 | Second address slot | 
| | | 
| 2 | Dimensioned | 
| | | 
13 | Member of structure | 
| | | 
| 4 | Value list for label variables or | 
| | РО5 for defined items | 
| | | 
| 5 | Initial value if not а structure | 
| | or LIKE if a structure | 
| | | 
| 6 | EXTERNAL slot | 
| | | 
| 7 | Defined slot | 
| | | 
| 8 | CONTROLLED from ALLOCATE statement | 
bee ere apo асы а ыы салшы салыт ey SN 1 


For a detailed explanation of the signi- 
ficance of these bits and a description of 
the extra slots associated with them, see 


"Format of Variable Information" in this 

Appendix. 

Data Byte 

Pasa aM ac aaa a as Бр Toy em qucm quie Фес 1 

| | | | | | | | | | 

| BIT 11 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 

| | | | | | | | | | 

}--------- і---і------------ і---------- --------- 4--------- І--------- і------- 4--------- 1 

| CAD or |1 | Not | Sterling | Long | Cad. | Binary | Float | Complex | 1 

| NUMERIC | | Used | Non | Short | Numeric | Decimal | Fixed | Real | 0 

| FIELD | | | Sterling | | Field | | | | 

}--------- + Іі---------- 1--------- --------- і--------- і------- і--------- 1 

| STRINGS | 0 | Adjustable | Aligned | Varying | No | Char | Not | Not | 1 

| | | Length | | | Picture | | Used | Used | 

| | | String | Packed | | Picture | Bit | | | 0 

| 1 | | | | | | | 

Шалы ыдыс шы Lo coho тасы тылда P — шше dans nini quera ааа m oe Жысшышық — ess J 

6. FORMAT OF VARIABLE INFORMATION require more than one bit to describe them. 
This has taken the second place in all the 
collections of attribute bytes. The pre- 

Data items, labels, and structures sence of a bit in this byte indicates the 
require pointers to various tables if they presence of further information. Тһе off- 


have certain attributes; for example, if 
they are dimensioned or defined опа base. 
Space will be left for information only if 
the attribute is present. This leads to an 


addressing problem of how to find the 
position of the information when the pre- 
sence of other attributes alter its 


address. 


The problem is resolved by collecting, 
into one byte, all the attributes which 


set of this information from the start of 
the variable information is given by the 
presence of the bits to the left of the one 
of interest. Each bit will have а value 
associated with it. The sum of the values 
of the bits present and to the left of the 
one of interest will give the value of the 
offset. This is achieved in the coding by 
moving the code byte, masking off the bits 
to the right of the one being tested and 
the bit itself, and translating the byte. 
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of 


The information produced by the presence 


the following bits in the variable byte 


is as follows: 


Bit 


Bit 


number 1: 


The second offset slot is 4 bytes long. 
The contents of this slot are described 


in this appendix. The decision to 
include a second offset slot in a 
dictionary entry is based оп questions 


about the nature of the identifier. 


Refer to figure 9. 


r-1i 
|Y| implies that a second offset 
1.1 slot will be given, 

г-1 

[N| that it will not. 

tJ 


number 2: 


Bit 


The dimensioned bit. The slot produced 
by this is three bytes long. Тһе first 
byte will contain the number of dimen- 
sions, the next two the dictionary 
reference of the dimension (multiplier) 
table 


number 3: 


Member of a structure bit. This slot 
is ten bytes long and has the following 
format: 


Byte Number Description 
1 Declared level number 
2 True level number 
3-4 Dictionary reference of 
the containing structure 
5-6 Dictionary reference of 
the next member in the 
structure 
7 Alignment 
8-10 Element length 
Bit number 4: 
POS for defined items, The two-byte 


slot will contain the POS 
binary integer. 


value as а 


Bit 


number 5: 

The initial value or LIKE bit is a 

four-byte slot. 

1. For normal initial value. The first 
two bytes contain the dictionary 


Bit 


Byte Number 


reference of the associated ‘Initial 
Value‘ dictionary entry. The fourth 
byte contains X'FO' 

2. For INITIAL CALL. The first three 
bytes contain the text reference of 
a second file statement. The fourth 
byte contains X'OF'. | 


3. For initial labels. The first three 


bytes contain the text reference of 
a set of second file statements. 
The fourth byte contains X'FF'. If 


there is an initial slot but no 
initial values the fourth byte con- 
tains Х'ОО* 

4. For LIKE. The first two bytes con- 
tain the LIKE chain. Тһе third and 
fourth bytes contain the dictionary 
reference of the likened structure 


number 6: 
The EXTERNAL bit.- This 
contains the ESD number 


Bit 


2-byte slot 


number 7: 


The DEFINED bit. This 
contains the following: 


7-byte slot 


Description 


1-2 Defined chain. 

3-4 Dictionary reference of base 

5-7 The text reference of a 
second file statement. 
After the dictionary these 


bytes will contain X'FFFFFF' 
if the base is unsubscript- 


ed. 
Bit number 8: 
The CONTROLLED from ALLOCATE bit. This 
bit is on for dictionary entries for 


level 1 CONTROLLED data specified in 
ALLOCATE statements. The two-byte slot 
contains the dictionary reference of 
the dictionary entry for the data con- 
structed from the DECLARE statement 


| Entry | 
bases q- 1 
| 
V 
poc pe aes a 1 
Y| Is it data 1 
г--1 item? | 
| t------- — 1 
| |N 
| у 
[| ifeaeesr seen 1 Е SIE 1 
| | Is it struc- |N | Is it label IN г-1 
| | ture? Ы-------- >| variable? f--> | N] 
| t------- т------- 4 Шым дыз сз т------- J LJ 
=== >|<------------------------- Y 
YV 
я ок 1 гу es ee ышы 1 
| Is it formal |Y | Is it struc- |М rpa 
| parameter? {----^---->| ture member? }-->|N| 
Есер аа, т------- J | — qu 1 boy 
5 | ІҮ 
V 
puce әке шік сеткіші жені 1 | г-1 
| Is it соп- ІҮ | [Ү| 
| ----1 LJ 
| trolled? | 
Бае pane: 1 
ІМ 
V 
"А а ae eum А2. 76 ассы 1 
| ІҮ | Is it ех- ІҮ r- 
| Is it static? [--------- > I--»1Y1 
| | | ternal? | ы! 
Шы лыы т------- J Ecce т------- 4 
к|<------------------------- IN 
V 
жакка шешз 1 
| ‚ | IY ra 
| Is it string? }-->|Y] 
ПИСМЕНУ РЕЯ т------- 1 L] 
|N 
V 
fee eue 1 
| Is it struc- |Y  r-1 
| ture member? |-->|Ү| 
коны — 4 LJ 
|N 
V 
ан 1 
| | | IY ге 
| Is it defined?}-->]|Y] 
tices — J Lod 
ІН 
V 
[o ror pn 1 
| Is it dimen- |Y r~ 
| sioned? Е->1Х| 
inlaeuc т----- EM bad 
|N 
V 
r^i 
IN| 
LJ 


Figure 9. Decision to Include a Second Offset Slot 
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Uses of the OFFSET1 and OFFSET2 Slots in 
Data, Label, and Structure Dictionary 
Entries 


The OFFSET1 slot is in bytes 6-8 of the 
dictionary entry and the OFFSET2 slot is 
part of the variable information. 


STi TIC INTERNAL Structures 


—— ee ree oe 


Major апа minor structure entries: 
OFFSET1 slot not used. OFFSET2 slot 
contains offset of structure dope vec- 


tor from start of STATIC INTERNAL  con- 
trol section (if there is a dope 
vector) 

Basic elements: OFFSET1 slot contains 


offset of virtual origin (in the case 
cf dimensioned items) or offset of item 
(when not dimensioned) from start of 
STATIC INTERNAL control section. 
OFFSET2 slot contains offset of dope 
vector (if there is one) from start of 
STATIC INTERNAL control section 


AUTOMATIC Structures 


Constant dimensions: as for STATIC 
INTERNAL except that all offsets are 
relative to start of DSA. 


Adjustable dimensions: major and minor 
structure entries: OFFSET1 slot not 
used. OFFSET2 slot contains offset of 
structure dope vector from start of DSA 
(if there is a dope vector) 


Basic elements: OFFSET1 slot not used. 
OFFSET2 slot contains offset of 
element's dope vector (if there is one) 
from the start of the DSA 


STATIC EXTERNAL and Parameter Structures 


Major structure entry:  OFFSET1 slot con- 
tains offset of address slot from start 
of data region.  OFFSET2 slot contains 
size of  EXTERNAL control section. 
(Offset of ma jor structure dope 
vector = 0.) 


Minor structure entries: OFFSET1 slot 
not used.  OFFSET2 slot contains offset 
of structure's dope vector from start 
of major structure dope vector. 
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Basic elements: OFFSET1 slot not used. 
OFFSET2 slot contains offset of 
element's dope vector from the start of 
the EXTERNAL control section 


CONTROLLED Structures 


Major and minor structures: OFFSET1 slot 
not used. OFFSET2 slot contains offset 
of structure dope vector from point to 
which pseudo register points. (In the 
case of the major structure, this value 
will be zero.) 





OFFSET1 slot not used. 
OFFSET2 slot contains offset of 
element's dope vector relative to 
address in pseudo-register.. 


Basic elements: 


Non-Structured Arrays іп STATIC INTERNAL 


OFFSET1 slot contains offset of vertical 
origin of the array relative to start of 
data region. OFFSET2 slot contains offset 
of dope vector (if there is one) from the 
start of the data region. 


Non-Structured Arrays іп  UTOMATIC 


Constant | 
INTERNAL 


dimensions: as for STATIC 


Adjustable dimensions: OFFSET1 slot not 
used. OFFSET2 slot contains offset of 
dope vector from start of data region. 


STATIC EXTERNAL, CONTROLLED or Parameter 
Array 


OFFSET1 slot contains offset of address 
slot which contains a pointer to the arrays 
dope vector. (Not used in the case of 
CONTROLLED. ) OFFSET2 slot is not present. 


Non-Structured Scalar Strings in STATIC 
INTERNAL 


OFFSET1 slot contains offset of datum 
from start of data region. OFFSET2 slot 
contains offset of dope vector (if there is 
one) from start of data region. 


———— а. 


Constant length: as for STATIC INTERNAL 
Adjustable length: OFFSET1 slot not 
used. OFFSET2 slot contains offset of 
dope vector from start of data region. 


Non-Structured Scalar Strings in STATIC 
EXTERNAL, CONTROLLED or Parameter 


OFFSET1 slot contains offset of address 
slot which points to string dope vector 
(not used in the case of CONTROLLED). 
OFFSET2 slot not present. 


Non-Structured Non-String Scalars in 
AUTOMATIC or STATIC INTERNAL 


offset of datum 
OFFSET2 slot 


contains 
region. 


OFFSET1 slot 
from start of data 
not present. 


—— a RR — —— — M M  — i ua — 


EXTERNAL, CONTROLLED or Parameter 


OFFSET1 slot contains offset of address 
slot which points to datum (not used in the 
case of CONTROLLED). OFFSET2 slot not 
present. 


7. OTHER DICTIONARY ENTRIES 


Label Constants - Extracted by the Read-In 
Phase 


Byte Number Description 
1 Code byte X'00' 
2-3 Length up to BCD lengtn-1 
byte 
4-5 Hash chain - STATIC chain 
6-8 Offset 
9-10 Statement Number 
11 Other 1 code Byte (See 


"First Code Byte - Other 1" 
in this Appendix 


12-14 Second Offset Slot 

15-16 Spare for Final Assembly 
17 Level 

18 Count 

19 Count of Containing Block 
20 BCD Length-1 

21 etc. BCD 


Compiler Labels 


The format is identical to that of a 
label constant, except for the omission of 
the BCD. The code byte is X'C3'. 


Formal parameter type 1 entry 


These entries are derived from the PRO- 
CEDURE and ENTRY statements, and do not 
contain any information other than that the 


identifier is a formal parameter. The 
format is as follows: 
Byte Number Description 
1 Code byte X'&40' 
2-3 Length 
4-5 Hash chain 
6-7 These bytes will point to a 
full description of the 
identifier after Phase EK, 
or Phase FA, or Phase FE. 
These full descriptions are 


dictionary entries for the 
type of item they are des- 
cribing. They do not con- 
tain the BCD of the iden- 
tifier, but in the slot for 
the hash chain there is the 
dictionary reference of the 
corresponding formal param- 
eter type 1 entry. 


8 Level 

9 Count 

10 BCD length-1 
11 BCD 


For a description of the types of entry 
pointed to, see “Dictionary entry for par- 
ameter descriptions." 
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Dictionary entry for FILE 


For attributes specified in OPEN state- 


ment the format is as follows: 


Byte Number Description 
1 Code byte X'98' 
2-3 Length 
4-5 STATIC chain 
6-8 OFFSET1 
9-10 DECLARE statement number 


11 onwards String of second level mark- 
ers (without preceding 'C8' 
code bytes) опе for each 
attribute other than FILE, 
TITLE and IDENT. 


This entry is created by the read-in 


phase and is referred to only ав the 
argument of an ATTRIBUTES marker. 


FILE Constants 


Code Х"08" is used for file constant 
entries, which have the following format: 


Byte Number Description 


1 Code byte X'08' 

2-3 Length 

4-5 Hash chain, subsequently 
EXTERNAL or STATIC chain 


depending on whether FILE is 
EXTERNAL or INTERNAL 


6-8 OFFSET1 (STATIC or transfer 
vector offset) 


9-10 Declare statement number 

11-12 Dictionary reference of 
attributes entry (zero if 
none) 

13 Code byte (similar to the 
"other 2" code byte. Only 
internal/external bit used) 

14-15 Dictionary reference of 
environment string (zero if 
none) 

16 Level 

17 Count 
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18 BCD length-1 


19 onwards BCD 


FILE Parameters and Temporaries 


Code Х%89" is used for file parameters 
and for file temporaries. The format of 
the entry will be the same as that for 


label variables. 


FILE Environment Entries 


Code X*'c8' 


string. 


is used for the environment 


Byte Number Description 


1 Code byte X'C8' 

2-3 Length 

4 onwards Internally coded form of 
argument of ENVIRONMENT 
option 


Code X'C8' is also used for attributes 
collected from the DECLARE statement. 


Byte Number Description 


1 Code byte X'C8' 
2-3 Length 

4 onwards String of second level mark- 
ers (without preceding code 
bytes X'C8'), опе for each 
attribute other than FILE, 


ENVIRONMENT,  EXTERNAL, or 
INTERNAL 


Dictionary Entries from Constants 


The format is: 


Byte Number Description 
1 Code byte X‘88* 
2-3 Length 
4-5 Навһ сһаіп 
6 DATA byte 
7 Data Precision* 
8 Scale Factor* 


*These are the apparent pre- 
cision and factor derived 
from the BCD of the constant 
(see Note 2) 


Type (see note 1) 


10 DATA byte (2) 
11 Data Precision (2) ** 
12 Scale Factor (2)** 


**These bytes are inserted 
by the phase requesting con- 
version. If a picture is 
required, these bytes are 
used to contain a picture 
table reference (see Note 3) 


13-14 Dictionary reference - used 
when a phase requires a con- 
stant to be converted into a 
specific location in storage 
15 BCD 
Notes: 
1. The type byte has the following mean- 
ing: 

First and second bits: 

.00 - normal BCD constant. The first 
offset slot must be reio- 
cated by the storage alio- 
cation phase, to contain 
the offset of the converted 
constant from the start of 
STATIC storage, rather than 
from the start of the con- 
stants pool 

11 - the BCD is replaced by the inter- 
nal form of the constant. 
The first offset slot is 
treated in the same way as 
for the code 00 

10 or 01 - the constant is required to 
be converted into a speci- 
fic location іп storage. 
The second code implies the 
converted constant should 
be made negative before 
being stored 

Sixth bit: 1 indicates that the соп- 

Stant requires a DED. 

Seventh bit: 1 indicates that the 

constant requires a dope vector. 

Eighth bit: 1 indicates that по соп- 

version is required. 

2. After the constants processor the 


bytes 6 through 8 will contain the 
offset of the constant from the start 
of the pool of constants. If a dope 


vector is requested then the offset of 
this from the start of the constants 
pool is eight less than that of the 
converted constant. 


Should a DED be required, this will be 


constructed by Phase PL. The two 
bytes, precision(2) and scale 
factor(2), will contain а dictionary 


reference of a DED dictionary entry. 
If the constant requires a dope vector 
then Phase 05 will make а dictionary 
entry for it, and the dictionary ref- 
erence preceding the BCD will be the 
dictionary reference of this. 


Task Identifiers and EVENT Data 


The format of the dictionary entries for 


task 


identifiers 
from the initial code byte, the 


and EVENT data is, apart 
same as 


that for a label variable. 


The format is: 


Byte Number 


Description 


1 Code byte X'04" 

2-3 Length 

4-5 Hash chain - later becomes 
the STATIC chain 

6-8 Offset - gives the position 
in STATIC storage of the 
load constant for Library 
routine 

9-10 Code bytes - the first code 
byte contains a value used 
by Phase MG to pick up com- 
plete information about the 
built-in function. The sec- 
ond code byte contains 
further information about 
the built-in function (See 
"Second Code Byte.") 

11-12 DECLARE statement number 

13 Level 

14 Count 

15 BCD length-1 
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16 BCD 


Second Code Byte 


The second code byte contains the fol- 
lowing information: 
Byte Number Description 
1 May be passed as an argument 
2 May have an array ав ап 
argument 
3 Must have an array as an 
argument 
4 Is a pseudo-variable 
5 Indicates to which of the 


two tables the offset refers 


Internal Library Functions 


Library routines, other than built-in or 
GENERIC functions, are known as Internal 
Library Functions. Their dictionary entry 
format is as follows: 


Byte Number Description 


1 Code Byte X'c2' 

2-3 Length 

4-5 Hash chain 

6-8 Offset 

9 Library Code - identifies 


the particular Library rou- 
tine required 
10 Not used 
11-12 Code Bytes - the first code 
byte contains a value used 
by phase MG to pick ар com- 
plete information about the 
Library function. Тһе sec- 
ona code byte contains 
further information about 
the function 


13 Level 


14 Count 
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BCD entries 


BCD entries are used when the LIKE, 
DEFINED, or POOL attributes аге used. A 
short dictionary entry with the format 
given below is used. This is pointed at by 
the dictionary entry with the attribute. 


Byte Number Description 
1 Code Byte X'&40" 
2-3 Length 
4 BCD length-1 
5 BCD 


Dictionary Entry for Parameter Descriptions 


Dictionary entries 
criptions are 


for parameter des- 
identical with the normal 
entry for data variable, label variable, 
Structure, file, or entry points, except 
for the following details: 


Hash chain contains pointer to formal 
parameter type 1. After Phase FT this 
pointer is moved to the bytes  contain- 
ing level and count 

No BCD is present 


No block identification is present for 
ENTRY or FILE 


The code byte for an entry point - 
referred to as entry type 6 - is X'86' 


ON Statements 


Entries for ON statements are made by 
Phase FO, and contain the, following: 


Byte Number Description 
1 Code Byte X'CD* 
2-3 Length 
4-5 АОТОМАТІС сһаіп 
6-8 Offset 
9 Code byte as supplied by the 
Read-In Phase 
10 Block level 
11 Block count 


12 n 


13 onwards n dictionary references of 


variables or ОМ condition 
entries 
ON Condition 
This entry is made by Phase FO: 
Byte Number Description 
1 Code Byte X*4D* 
2-3 Length 
4-5 Hash chain later used as 
AUTOMATIC chain 
6-8 Offset 
9 Code byte as supplied by the 
read in phase 
10 Block level 
11 Block count 
12 BCD length-1 


13 onwards BCD 


CHECK List Entry 


This entry is made by Phase FO: 


Byte Number Description 


1 Code Byte X'c8' 

2-3 Length 

4 п where п 15 the number of 
dictionary references fol- 
lowing 

5 onwards Dictionary references (2n 
bytes) 


PICTURE Entry 


The format of an entry in the picture 
table in the dictionary. 


Byte Number Description 
1 Code Byte Х“С8" 


2-3 Length = 1%13 


4-5 Contains address of next 
entry in picture chain 

6-8 Offset in STATIC storage 

9 Code Byte (after Phase FQ) 


(See Code Byte description) 


10 P - the number of digit 
positions in field in numer- 
ic picture. 


11 0 - the number of digit 
positions after V character 
in numeric picture. Code 
X'80' represents 0, X'7Fr' 
represents -1, and X'81' 
represents +1. * 

12 W - apparent length of  pic- 
ture. - length of picture 
following. (For a non- 
numeric picture the length 


is obtained in bytes 12-13.) 


14 onwards Picture. 


Byte 9 - Code Byte 


Bit Number Description 


1 0 string 
1 numeric 
2 0 correct 
1 error 
3 0 not sterling 
1 sterling 
4 0 short 
1 long 
5 Not used 
6 0 decimal 
1 binary 
7 0 fixed 
1 floating 
8 Not used 


Dictionary Entry for Workspace Requirement 
The format for a dictionary entry for 

workspace requirement is: 

Byte Number Description 


1 Code Byte X'C8* or X'CA' 
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2-3 Length = 8 
4-5 Total workspace required 
6-8 Offset 


If the code byte is C8 
temporary workspace 


this is the 
used by pseudo-code 
(temporary type 1). If the code byte is 
C9, the temporary workspace is used in an 
immediate FORMAT. If the code byte is CA, 
the FORMAT is remote. 


Dictionary Entry for Parameter Lists 
Dictionary entries for parameter lists 
have the following format: 


Byte Number Description 


1 Code Byte X'C5' 
2-3 Length 

4-5 5ТАТІС сһаіп 

6-8 STATIC offset 
9-10 Assembled length 


11 onwards Contains DCA's 


Dictionary Entries for Dope Vector 
Skeletons 


Byte Number Description 
1 Code Byte X'ce' 
2-3 Length 
4-5 STATIC chain 
6-8 Offset in STATIC 
9-10 Dictionary reference or 


DECLARE number 


11 onwards Bit pattern of skeleton dope 
vector 


This entry is constructed by Phase PD 


Symbol Table Entry 


Symbol table 
PL. 


entries are made by Phase 
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Byte Number Description 

1 Code Byte Х'С7' 

2-3 Length 

4-5 STATIC chain 

6-8 Offset in STATIC of DED 

9-11 Actual DED if not pictured. 
If a picture is involved, 
the last two bytes are the 
dictionary reference of the 
picture table entry 

12-13 Offset in STATIC storage of 
symbol table entry 

15-16 Dictionary reference of next 
item in the symbol table for 
this block 

17-18 Dictionary reference of item 


requiring entry in symbol 
table 
Dictionary Entry for AUTOMATIC Chain 
Delimiter 
An entry for AUTOMATIC chain delimiter 
is made by Phase PP. 
Byte Number Description 
1 Code Byte X'CC' 
2-3 Length 
4-5 АОТОМАТІС сһаіп 
6-7 Pointer to first second file 
entry 
8-9 Pointer to second second 
file entry 


DED Dictionary Entry 


An entry for a DED is created by Phase 
PL. 


Byte Number Description 
1 Code Byte Х'С7* 
2-3 Length 
4-5 5ТАТІС сһаіп 
6-8 STATIC offset 


9-11 Actual DED 

If the DED requires a picture, the last 
two bytes contain the dictionary reference 
of the picture table entry. 


This entry has the same format аз the 
first eleven bytes of a symbol table entry. 
No item will require both types of entry. 
The type required will be chained from the 
symbol slot in an item. 


DED2 Entries 


These entries are generated when a DED 
is required for the conversion of а tem- 
porary result. 


Byte Number Description 
1 Code Byte X'C1' 
2-3 Length - 11 
4-5 5ТАТІС сһаіп 
6-8 Offset 
9-11 Actual DED 


Dictionary Entry for FED - Format Element 
Descriptor. 


The entry for a FED is made by Phase NV, 
The entry is identical with a DED2 entry 


but with a length of 12, instead of 11. 
The storage allocated will be word-aligned. 


Byte Number Description 


1 Code Byte X'c1' 
2-3 Length = 12 

4-5 STATIC chain 
6-8 STATIC offset 
9-12 Actual FED 


Label BCD Entries 


Label BCD entries are made by Phase ЕО. 


Byte Number Description 
1 Code Byte X'CE' 


2-3 Length 
4-5 DECLARE number 
6-7 Offset of the label's BCD 
in STATIC 
These entries are constructed when а 


Statement label or а PROCEDURE or ENTRY. 
label is mentioned in an ON CHECK list. 
Phase PD will allocate storage in STATIC 
for the BCD of the label, and place the 


offset of this in the above entry. 


Dope Vector Entries for Temporaries 


This entry is constructed to indicate 
that a dope vector is required for a 


temporary result. At this stage the bytes 
in the entry contain the following: 
Byte Number Description 

1 Code Byte Х"С0" 

2-3 Length 

4-5 AUTOMATIC chain 

6-8 Offset in the temporary type 

1 stack. After Phase QJ 


this will contain the offset 
from the start of the DSA 


9-10 Dictionary reference of dope 
vector skeleton entry 
11-12 Length of string 


Record Definition Vector Entry 


This entry is constructed when а  varia- 
ble requires a record definition vector. 


Byte Number Description 
1 Code Byte Х'С9* 
2-3 Length 
4-5 STATIC or AUTOMATIC chain 
6-8 Offset 
9-10 Dictionary reference of 
variable 
11-18 Eight bytes of RDV text 
19-20 DECLARE number 
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Dope Vector Descriptor Entry 2-3 Length of entry 


4-5 Statement number of the 
This entry is constructed for а struc- DECLARE or other statement 
ture which requires a dope vector descrip- giving rise to the second 
tor. file statement 
Byte Number Description 6-7 Dictionary reference of the 
entry type 1 of the block 
1 Code Byte X'cc' from which the second file 
Statement was extracted 
2-3 Length 
8-9 Dictionary reference of a 
4-5 5ТАТІС сһаіп three-byte slot in the dic- 
tionary. 
6-8 Offset 
10 Type of second file state- 
9-10 Dictionary reference of ment, і.е. the function it 
structure performs. This is the sec- 
ond byte of the dictionary 
11-12 Chain to RDV entry or reference used to designate 
DECLARE number the function in the actual 
second file statement 
13... DVD text set up by Phase JK 


Format of a Second File Dictionary Entry 
8. DIMENSION TABLE 


Byte Number Description Each entry containing dimension informa- 
tion will result in a table being set up. 
1 Code byte X'c8' This table is shown in Figure 10. 


pcc ee "RN RES RITE Cu a M IM M M EDU LC al Е В ЕЕЕ 1 
| Code Byte C8 | Two-byte length | Flag Byte | 
puse а eee ya an eam in aL Ra ы шшш 1 
| Zero byte |No. of dimensions (n) | Two-byte chain address | 
]----------------- Жаа а асы шык due ыш Жаса — ысы E шшш анны ---4 
| VIRTUAL ORIGIN WORD | 
ел pee a eee rg ee ЕВЕ сти тіккені 
| One-byte marker | Not used | Lower pound (halfword) | 
----------------- %---------------------і---------------------------------і 
| One-byte marker | Not useG | Upper bound (halfword) | 
------------------ 4--------------------- %--------------------------------- 1 
------------------ і%--------------------- %--------------------------------- 1 
| | | nth upper bound | 
------------------ 1--------------------- 1------------------------ --------- 1 

n multipliers | | 
Кешш ST сыл шш шышы ын алы ee DRM RET ee ды асылы ла A eRe J 


Note: The one-byte marker is: 
00 if bound is fixed point constant; bound is a two-byte binary constant, left-adjusted. 


FF if pound is an expression; bound is a three-byte pointer to a second file statement in 
text. 


7F if the bound is inherited and has an MTF function. 
3F if the bound is inherited and is covered by a previous MIF function. 
FO if the bound is specified by an *. 


Figure 10. Dimension Table 
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describes the internal 
at various points during 
program. The 
the following 


This appendix 
formats of text 
the compilation of a source 
appendix is organized in 
manner: 

1. Text code bytes after read in 
2. Text formats after read in 


3. Text code bytes on entry to the tran- 


slator 
4. Triple formats 
5. Text code bytes in pseudo-code 


6. Text formats in pseudo-code 


10. 


11. 


Note: 


Appendix D: 


APPENDIX D: INTERNAL FORMATS OF TEXT 


Text formats in absolute code 


Second file statements, and the for- 
mats of compiler functions and pseudo- 
variables 


Pseudo-code phase 
descriptors (TMPDs) 


temporary result 


Internal and external Library calling 


Sequences 


Descriptions of terms and abbrevia- 
tions used in text during а  compila- 
tion 


The internal formats of text during 
compile-time processing are described 
in Appendix J. 
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TEXT CODE BYTE AFTER THE READ-IN PHASE 


First Level Table (00 to 7F) 


1: 


que m жағ. or — re — = MT m = -—— — —n = — — -e тү) 
і + | 
ж 24 ! 
H н * | 
e^ р + N * fx; By * | 
Ы [ea | 
С са | 
[an Qu 
---------------------і----і--------------і--------------------------------і 
| 
92 | 
[| A П 
« - uv il | 
2 Ne - H А м | 
O OI il | 
ата у | 
— — — — — — — — — — — — — — — — — — — ---і 
fg ЕН 
- da 
а 2, « 
но са E4 
w нн ix] W 
5 HO 
= о 


т 


| 

| 
----------4---4---4-----------4--------і----------і1--------і----------1 

| 


І----------і---1---4-----------і--------4----------4--------і----------14 


| 
| 
| 
| 
ак ОУ ы санан жынға ышы кала йрн. 
| 
| 
| 
| 
| 
| 
| 
| 
І----------і---4---%-----------4--------і----------4--------4----------і1 
| 


BLANK 
( 

——  —— — — f---------- — f= 4 
) 
-----------і---і---1-----------і--------і----------1--------і----------1 
ASSIGN 
| 
% 
| 
6 
à 


| 
| 
| 
| 
а= 
| 
| 
| 
| 
| 


5 
----------4---4---і-----------і--------і----------1--------4----------4 
5 
T 
U 
V 
W 
X 
Y 
Z 
VARIABLE 
FUNCTION 
SUBSCRIPT 


. PSEUDO- 


| 

| 

| 

| 

| 

| 

| 

| 

| | 
—————— 2€ 

| 

| 

| 
— — ——— P n 
Ее 


# 

J 

K 

L 

м | | 

E сете 5 we 

о | 

P 

Q 

R 


1 а 

[ А 
| 

| B 
|c 
| D| 
ГЕ [М | 
| F | 
| G 
| 

| H 
| I 
| 

| 

| 

| 

| 

| 

| 

| 


0 
1 
2 
3 
ц 
6 
7 
8 
9 


5 
ļ----------ł---4---4-----------}--------4----------ł}--------ł}----------4 


---------і---і---і-----------|--------і----------і--------і--------- 


[TU ede Pee ae A poe nt he aes ee А AI CI (йай қ дықта лы даланы. 
| 
РО кш ea т DE 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 


0 
1 
2 
3 
4 
5 
6 
7 
8 
9 
A 
B 
с 
D 
E 
Е 


| «&-Digits-»|«-----Letters-----»|«--------------Operators--------------»| 
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First Level Table (80 to FF) 


Е 

















8 9 А B С D E F 
[Temm ЕЕ т========== те-===== т-===-==== т тт т 1 
| TO | LINE |А | | | SN | |FL DEC IMAG | 
}-------- %------- %---------- %------- %---------і---------- ł--------- ł------------- 1 

| | | | | ASSIGN BY | | | 
| ALLOCATE] | CALL | ENTRY | | NAME | IFL DEC REAL | 
-------- %-------1----------4-------4---------4----------%---------4-------------1 
| BY | |B | | | SL | |FL BIN IMAG | 
--------- і------- і---------- +------- %--------- 1---------- і--------- Іі------------- 1 
| FREE | | RETURN | PROC | | Sr" | |FL BIN REAL | 
-------- ФФ 
| WHILE | ІР | | | CN | |ЕІХ DEC IMAG | 
-------- %------- %---------- і%------- %--------- 3%---------- і%---------і------------- 
| | DISPLAY | GOOB+ {_EGIN | |GET | |ҒІХ DEC REAL | 
}-------- 1------- ----------- {------- --------- і--------- }---------}------------- 
| SNAP | COL |R | | [CL | |ҒІХ BIN IMAG | 
}-------- }------- 1---------- і------- і--------- 4---------- }---------}------------- 
| | SIGNAL |GO ТО |ITDO [WRITE | PUT |END DO — |FIX BIN REAL | 
}-------- ------- %---------- і------- І--------- і---------- ---------- ------------- 1 
| | | | | 2nd LEVEL| | | 
|5Ү5ТЕМ |E | | |MARKER | | ЕМО ITDO | INTEGER | 
-------- 4-------4----------4-------4---------4----------і---------і1------------- 
| WAIT | REVERT | | DO | READ |UNLOCK * |END | STG DEC REAL | 
-------- 4-------і1----------4-------4---------1----------1---------41-------------1 
| THEN |F | | | | | | | 
}-------- }------- ł---------- ł------- ł--------- }---------- }--------- }~------------ 1 
|DELAY | |INIT LABEL|IF |LOCATE ж |REWRITE |END PROG |ОМ | 
-------- -——— — ————M—— MH Qn A E. 
| CONTROL | l | | | | | ARRAY | 
| VARIABLE | | | SN2 | | | |CROSS SECTION] 
}-------- і------- і---------- }------- }--------- }---------- }---------}------------- 
| EXIT |NULL |DECLARE  |ELSE  |DELETE |ОРЕМ |END BLOCK|CHAR CONSTANT| 
-------- %------- %---------- і------- 4--------- і---------- і---------і------------- 1 
| jc |X | МО SNAP] | | | SUB | 
--------- і------- і---------- і------- 4--------- }---------- }~--------}------------- 
| STOP {ASSIGN | | FORMAT | | CLOS |; |ВІТ CONSTANT | 
еа а Е oe 
+ Go Out Of Block * Not second version 
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Second Level Table (00 to 7F) (preceded by second level marker byte C8) 


7 |IDENT 

8 |LINESIZE 
F eee ee ee 

9 | 

A | INTO 

B |FROM 

C |SET ж 

D |КЕҮ 

E |NOLOCK ж 
------ ————— 
| 

Е | IGNORE 
Бесім llli. 
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FILE 


-------- 


— — — — —— — — 


2 
TuS YEA T 
| | 
i TULIP E t 
t mun ы сіре с Б 
| 
+ ‘i a eae aes Ses 
| EVENT 
+ See ee 
| PRIORITY 
+ PEPE os боза 
| REPLY 
+ жасыма Soe 
| 
+ „леше 
| 
+ enim шата 
| 
+  ——À oe әкеме oe oe 
| 
+ жы ыы жыла as 
| 
+ See M 
| 
+ НЫ Se 
| 
+ eleme д Ше 
| 
+ eee ee oo ee 
| 
+ — Á—— ыды 
| 
| 
WI lI— НЕНИЯ 


Fe pt tt tet tet 


3 4 5 6 

Е ЕИ п MC CM LE ELEM Lu dM MM I ELEM просо 
| DECIMAL | OPTIONS | EXTERNAL 
| BINARY | IRREDUCIBLE | INTERNAL 
| FLOAT |REDUCIBLE  |AUTOMATIC 

РЕШЕНИЕ — —— —— lee еке À e C c ЧИА канын 1 
| FIXED |RECURSIVE |5ТАТІС 

асыны ura dicentem puc сы nan Se due s ju eus cum аы Qu CM ты ышы ceo Ro recie um emi dus ae Om C el Que ms ces ы аа НЕ D НН 4 
| REAL {ABNORMAL  |CONTROLLED 

———— | MÀ — —À € —— as a s o] ac ras m c ee —À ÀÀ I---------- 
| COMPLEX | NORMAL | SECONDARY 

m—————d-lllccclecmMeecd--c2lelcole Ғ---------- 
|PRECISION 1 [USES | 

See oe лыс Шуи ЕН ы с ee eee +---------- 
|PRECISION 2 [SETS | 

Е Ғ-------------- -----------4---------- 
| VARYING | ENTRY | 

uda te docu ыы d ла ЕН Enc 
|PICTURE(NUM)  |GENERIC | INITIAL 

Élllil +-------------- -----------4---------- 
|BIT ATTRIBUTE |BUILTIN | LIKE 

—————— ҒҒ --------------1-----------і4---------- 
| CHAR ATTRIBUTE | | DEFINED 

incus {теше елын ы а тозан саат pomme eei 
| DIMS | | 

ees Е pecie екеніні кені ы ышы ышы 
| LABEL | | PACKED 

------- %--------------і-----------і---------- 
| PICTURE (CHAR) | | 

inei {| See Soe aes pee ae Saas fae 
| | | 

ВУ МАМЕ | | RETURNS | Pos 

жс ше арасы Pel ыы месі ШшыШшы тыш 


ж Not second version 


Sie cce ec Чагаан нл: 
| 
| 
| 
| 
! 
| 
| 
| 
- 


| RECORD 
| ——— —  — 


| BACKWARDS 


| SEQUENTIAL 
F ——— Ó— Ó— M — ——À 


| 
| DIRECT 


| ENVIRONMENT 


— — — — — — = — — — — 


—4 


------------------------------------------------------------------ 


| 
| 
1 
| 
1 
1 
| 
| 
і 
| 
| 
H 


oe — = «ше «ж — — — 


Second Level Table (80 to FF) 


— — — — «м» — — — ae 


——— — — — — -Г- e — 


— — = = = == «се — == 


ЬЬЬ фа 


nr a ee a 2... 


------------ 


—— — Ó— — 


D E F 
Yo mI T PORTO Din Xr da quU TT ines on 1 
|OVERFLOW  |CONVERSION|CONDITION| 
{+---------- {---------- %--------- 1 
| | | | 
t--<-------- ф--------- %--------- 1 
|UNDERFLOW | | NAME | 
4---------- еее ее 1 
| | | | 
gore [жеше шыны jose 1 
| ZERODIVIDE| | TRANSMIT | 
ЕЕ п и 1 
| | | | 
+---------- 4---------- +--------- 1 
| FIXED | | | 
|OVERFLOW |ENDFILE |CHECK | 
сара жасар кыра jeecc Ue quce 1 
| | | | 
А еее == 1 
| SUBSCRIPT | | | 
| RANGE |ON RECORD | | 
presses msn qure fee 1 
| | | | 
SS ne iene ears pae 4 
| ERROR |END PAGE | | 
наа а иные 1 
| | | | 
dou ene dccem joe 
| FINISH | KEY | NOCHECK | 
{---------- 4-------- 1---------4 
| | | | 
qoem m M RE мы 1 
| | UNDEFINED | | 
| SIZE | FILE | | 
== ес нанын макала еды фене 1 
| | | | 
EEE eee шыш ALllcllllll- дысы ышты J 


PROCEDURE Statement 


The 


format 


In the statement formats in this sec- 
tion, the code bytes SN, SL, SL", POS, and 
OB have the following meanings: 

SN statement number 

SL Statement label 

SL' initial label 

POS following SN is a 2-byte statement 
number 
following SL is a 2-byte dictiona- 
ry reference of statement label or 
entry type 1 

OB prefix options byte, specifying ON 
conditions enabled for the state- 
ment 

The abbreviation SQUID means an iden- 
tifier, possibly subscripted and/or quali- 
fied. 


as follows: 


Byte Number 


8-10 
11-13 


14-16 


Description 

Code byte SN or SL 
POS 

OB 

PROCEDURE 

Block level 

Block count 
PROCEDURE-BEGIN chain 
DECLARE chain 


ENTRY chain 
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17 Left parenthesis - optional 


18... Format parameter list - 


optional 

Right parenthesis - optional 
Attribute marker - optional 
Attribute code - optional 
Attribute list - optional 


End of statement semicolon 


ENTRY Statement 


The format of an ENTRY statement is as 
follows: 


Byte Number Description 


1 Code byte SN or SL 

2-3 POS 

4 OB 

5 ENTRY 

6-8 ENTRY chain 

9 Block level 

10 Block count 

11 Left parenthesis - optional 

12 Formal parameter list - 
optional 


Right parenthesis - optional 
Attribute marker - optional 
Attribute code - optional 
Attribute List - optional 


Statement terminating 
semicolon 


BEGIN Statement 


The format of a BEGIN statement is as 


follows: 


Byte Number Description 
1 Code byte SN or SL 


2%3 РО5 
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4 OB 

5 BEGIN 

6 BLOCK LEVEL 

7 Block count 

8-10 PROCEDURE-BEGIN chain 
11-13 DECLARE chain 

14 Statement terminating 


semicolon 


END Statement 


The format of an END statement is as 


follows: 
Byte_Number Description 
1 Code byte SN or SL 
2-3 POS 
4 OB 
5 END1, END2, or END3 - END1 
ends a PROCEDURE or BEGIN 
block; END2 ends an itera- 
tive DO block; END3 ends a 
non-iterative DO block 
6 Block level for the contain- 
ing block 
7 Block count for the contain- 
ing block 
8 Statement terminating semi- 
colon 


IF Statement 


The format of 
follows: 


an IF statement is as 


Byte Number Description 


1 Code byte SN or SL 
2-3 POS 
4 OB 
5 IF 
6... Expression 
THEN 


Statement or Group 
ELSE - optional 


Statement or Group 
optional 


Note: The semicolon preceding the ELSE has 
been deleted 


DO Statement 


The format of а DO statement is as 


follows: 


Byte Number Description 


1 Code byte SN or SL 

2-3 РО5 

4 ОВ 

5 DO ок ITDO 

6 CV 

7 BKC 

Sos Squid 
DO equals 
Expression 
TO 
Expression 
BY 
Expression 
WHILE 
Expression 


Statement terminating 
semicolon 


ON Statement 


The ОМ statement takes one of the fol- 
lowing formats: 
1. 
Byte Number Description 
1 Code byte SN or SL 
2-3 POS 


4 OB 

5 ON 

6 ON Condition 

7 SNAP or NOSNAP 

8 Statement or block 
2. 
Byte Number Description 

1 Code byte SN or SL 

2-3 POS 

4 OB 

5 ON 

6 ON Condition 

7 System 

8 SNAP or NOSNAP 


ASSIGN Statement 


The format of the ASSIGN statement is as 
follows: 


Byte_Number Description 


1 Code byte SN or SL 

2-3 POS 

4 OB 

5 ASSIGN or ASSIGN BY NAME 
6... Squid 


Comma - optional, 
may be repeated 


Squid - optional, 
may be repeated 


Variable number of bytes - 
Optional, may be repeated 


ASSIGN 
Expression 
Statement terminating 


semicolon 
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WAIT Statement 


The WAIT 


format: 


Byte Number 


CALL Statement 


Toss 


The 


format: 


Byte_Number 
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10 


11 


statement has 


statement has 


the following 


Description 


Code Byte SN or SL 

POS 

OB 

WAIT 

Left parenthesis 

Identifier 

Left parenthesis - optional 
Expression - optional 

Right parenthesis - optional 
Comma 


Further optional parentheses 
and expressions 


Right parenthesis 

Left parenthesis - optional 
Expression - optional 

Right parenthesis - optional 


Statement terminating 
semicolon 


the following 


Description 

Code byte SN or SL 
POS 

OB 

CALL 

CALL chain 
Identifier 

Left parenthesis 


Expression 


12. е 


Right parenthesis 
Left parenthesis 
Argument List 

Right parenthesis 


Statement terminating 
semicolon 


GO TO Statement 


The format of the GO TO statement is 


follows: 


Byte Number 


6... 


Code byte SN or SL 
POS 

OB 

GO TO 

Squid 


Statement terminating 
semicolon 


SIGNAL and REVERT Statements 


The SIGNAL 


Byte Number 


желе —— M — «кеме 


The format of the DISPLAY 


as follows: 


Byte Number 


1 


as 


and  REVERT statements have 
the following format: 


Description 

Code byte SN or SL 
POS 

OB 

SIGNAL or REVERT 
ON Condition 


Statement terminating 
semicolon 


Statement 


Description 


Code byte SN or SL 


is 


Tess 


POS 

OB 

DISPLAY 

Left parenthesis 

Expression 

Right parenthesis 

Left parenthesis - optional 
Squid - optional 

Right parenthesis - optional 


Statement terminating 
semicolon 


DELAY Statement 


The format of the DELAY statement is as 


follows: 


Byte Number 


dex 


Description 

Code byte SN or SL 
POS 

OB 

DELAY 

Left parenthesis 
Expression 

Right parenthesis 


Statement terminating 
semicolon 


RETURN Statement 


The format of the RETURN statement is as 


follows: 


Description 

Code byte SN or SL 
POS 

OB 

RETURN 


Left parenthesis - optional 


Tess 


Expression - optional 
Right parenthesis - optional 


Statement terminating 
semicolon 


STOP, EXIT, and Null Statements 


The format of STOP, EXIT and Null state- 
ments is as follows: 


Byte Number . 


Description 

Code byte SN or SL 
POS 

OB 

Statement identifier 


Statement terminating 
semicolon 


INITIAL Label DECLARE Statements 


The format 


of INITIAL label DECLARE 


statements is as follows: 


Byte Number 


The format 


Description 

Code byte SN or SL 
POS 

OB 

INITIAL Label DECLARE 
DECLARE chain 
INITIAL label 


Statement terminating 
semicolon 


of DECLARE and ALLOCATE 


statements is as follows: 


Byte Number 


Appendix D: 


Code byte SN or SL 
POS 


OB 
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5 DECLARE or ALLOCATE 


6-8 DECLARE chain or ALLOCATE 
chain 
9%“ Declaration list 


Statement terminating 
semicolon 


FORMAT Statements 


The format of the FORMAT statement is as 
follows: 


Byte Number Description 
1 Code byte SN or SL 
2-3 POS 
4 OB 
5 FORMAT 
6... Format list 
Statement terminating 
semicolon 
Format items are replaced by one-byte 
codes 


OPEN and CLOSE Statements 


The format of OPEN and CLOSE 
follows. 


statements 
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Byte Number Description 
1 Code byte SN or SL 
2-3 POS 
4 OB 
5 OPEN or CLOSE 


ба File group list 


Statement terminating 
semicolon 


READ, WRITE, ЗЕТ, PUT, REWRITE, UNLOCK, and 


The format of READ, 
REWRITE, UNLOCK, and DELETE 
as follows: 


WRITE, GET, PUT, 
statements is 


Byte Number Description 
1 Code byte SN or SL 
2-3 POS 
4 OB 
5 Statement identifier 


би Option list 


Statement terminating 
semicolon 


3. TEXT CODE BYTES ON ENTRY ТО ІНЕ 


a —M— ES A a SE жж 


0 1 2 3 4 5 6 7 
резал и раббан COLT ао ааба ee ne as БЫ queso oe эст Mp ee en Pe To Tee AT ee 
| | | {COMPILER | | | | COMPILER | 

0 |DICT. REF.|FILE | |FUNCTION | |FILE' | | FUNCTION' | 
}---------- +-------- +---------- +---------- }-------- Fee Ra cic PUER {+-------------- 1 
1 | | | | [COMMA | { |DO EQUALS | } | 
---------- +-------- %---------- %---------- fess qoc {---------- 4-------------- 1 
| | | [COMPILER | | | | COMPILER | 
2 | | LIST | [FUNCTION |ЕСОММА |LIST' | | FUNCTION CALL’ | 
| | | | CALL | | | | | 
RESUME: = Е = je qoc ф----т----- ф-------------- 1 
3 | JEDIT JEVENT ж | | «4 |EDIT' | | - | 
pee я асе аза еее ие quce joo decem T-------------- 1 
| | | [COMPILER  |COMPILER| | | COMPILER | 
4 |TITLE | DATA |PRIORITY *|PSEUDOVAR |FUNCTION|DATA' | | PSEUDOVAR' | 
| | | | [COMMA | | | | 
----------- qoem | Sa oni РН ЕН ее T-------------- 1 
5 |ATTRIBUTES|STRING  |REPLY | D |STRINS' | < | + | 
------—-—- %-------- pee——————- qe E ERG Gee в Teens 4-------------- 1 
| | | | | COMPILER | | | | 
6 |PAGESIZE |SKIP | | ERROR |ASSIGN | | | NDX | 
рег е ек ты Тез-тез ape діннін jo pesce qol TEES ее 1 
| | BUY | | | MULTIPLE | | | 
7 | IDENT | LINE | CHAMELEON |BUY ASSIGN|ASSIGN [ASSIGN | > < | / | 
---------- %--------3----------14----------4--------4--------4----------і--------------4 
8 |LINESIZE |РАСЕ | | ARCO | DROP | TMPD | LEFT [OFS | 
---------- fece pecu quentes je emer ijt quce jueces em 1 
9 | |coPY | | | ti | LD |. | * | 
[---------- gore кшн Жарар peccatum о = joe ]-------------- 1 

| | | | | BUYB | | | 
A | INTO |КЕҮТО | |PSEUDOVAR |CALSEQ  |TT | | PSEUDOVAR' | 
pesce prnaos poera ‚а аидын иы [ree Е je ше a ae ced 1 
| | | | END | | | | | 
B |FROM |TASK * |LIST MARK |LIST MARK | | | JMP | = | PREFIX - | 
Sean tse і--------?---------і----------4--------4--------4----------і-------------- 
с |SET * | RPL | |FUNCTION |CNVA | RPL" | | FUNCTION' | 
[reme pessime pete pea pea pesen ЕЕ {+-------------- 1 
| | | |ARGUMENT | | | | | 
D |КЕҮ | | | MARK | & | | > | PREFIX + | 
----------- і------- | DGS OCA fesse === %-------- 4-------- і---------- 4-------------- 4 
| | |DEFINED [SUBSCRIPT | | LITERAL | DEFINED | 
E |NOLOCK * |КЕҮЕВОМ |SUBSCRIPT | | CNVB | CONSTANT | SUBSCRIPT' | SUBSCRIPT" | 
---------- = I-—------- %--------Т--------4--------- 4|-------------- 1 
|FORMAT | | | [FORMAT | | | 
Е | IGNORE | LIST | | fees |LIST р < | ж% | 
LoS ee ee AEE ИЦЫНЕ dieses ania at east eral a Leconte. Loc cle Al--—z----- Жас шашы таш К киен азы төте ығысты d 


* Not second version 
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| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 


1 
| 


`` meen heeds mete nines mieten канада а р ein | 
| | П і П і 1 | і [ і l 1 2 | i 1 і 
| [ | і [ | | 1 } [ | | 1 O | l i | 
| | і | | і [ | 1 і | | | H | і і | 
i | | ! | р { | і { | і i E 1 | | 1 
| 1 | і і | l | і 1 | 1Z 1 U | [ | | 
| і [ [ 1 і | [ | П | ГО | ml | [ t | 
і | | | | | | | і [ і | | 91 {= | | 
i [ і { t fe |! | [ [ t (0 | t tare 
| | | fe | іші Г. | | | оми [ 1 6 1 
| | | IQ I іні ро 1 | | | {| o0 | iz {р> | 
| ро |! О | $0 | ісі t= | le 104 O0 І Inia | 
| іні іші à | іні 1 О | LR ОТО 1 
| іші рр І іші Ін! ісі іні O І (Zi bi | 
------------------------------------------------------------------ 
| | | | 1 | | 1 i | i 1 | i IN | | 
і | ! | | і [ П | | | [ [ (x | і | 
| І | | | | | і ГО | [ ісі (ou ісі | 
| | | || | | 1 | 10! | О | 1O IOI } 
| | | | i i П | О Ін | | іші ата 1 [ 
| l» | | | | | ісіні | іші АТА І = | 
1 le [ [ [ 1 [ | [ | [ | і | | | 
| tet { t } і атата | io! ка пс! i 
| ік | { le | | IZ IZIZ l» ізі 12112 | | 
[ ко! [ і-|1 | {ш |р {|р | о р ищ] d а Та l 
к-----------------------------------і------------------і----і--------і 
| | | | i [ 1 | | 1 і | і | | i t 
| | | | [ і і | і (* | П | | | | | 
| і | | | і | | { { i іші | | і | 
[ [ | | | | і | | Ix Il іні [ | | | 
| l | 1 | i | | i о іні { | (mt 
| | [ | l | 1 1 1 IO I Iœ | іші іші 
| [ | | | іні ІН | |o | IB | IA | IQ I 
1a 1 іы d ума ісі. іші іші» idi 
іші (in | тоо IO IA | те | io IO IO I! 
l- — -E- — -- — 47 — -- — MP — -- — -- — P — H- — Я tet et niania. 
| l \ | l | l | | | і i* | (* | | l 
| | і і і | | 1 t= | і | і і | | [ 
| [ l | 1. | і i tel | (4 Imi | { 
| | | | іші le || аш | | іні іні | | 
| [ | | а 78525 { кї | {| l | 
|= | le | нта «что 1 О | „ IH I | { 
ісі і м | штота тамы 1 О | > І | l | 
| FI (a i | р фо |! о || INIA) ін | OU IA I і | 
[фа 
і і | | | П | l | | [ | | і |I ТЕ i 
| | | | | 1 2 | i | | [ | | | { «© 16 | 
| | | IO | tH} О І | { [ [ ате 
| і | ісі 10 | (at | i 1 [ N ш | nia 
| | | | e | Ы І FE I ісі ІШ | әімацсо1о1 
| | [ (a | іші іні ісі іні Niniais& il 
IP — tt te te tet tet eet st | 
| | | іші [ | і | і і | | | | | ] 
| i | ішегі { і | і і 1 | [ | | [ | 
l (Hs ID | (a | О | | | | | н І | іші 
| ің l 1 Е | ісі | EA | { | | | yin | tm | 
l (cl | m | О I 1 О 1 1 | 1 | B] i2! іші 
Гота 1010105 10 | і 10 |! { ninminimi 
к-----------------------------------------------------------------і 
l | | | | 154 I | | | l | | | | l | 
| [ | | | іні IA | іні | | | i (Zi 
| і | | } 1 1 1c | | ш | | | | | 1 0 | 
(m І Ы 1 IA IA I 12 | (fm | | | (Ht іні 
ізі ісі tH rnin i о | I> | | | інші 191 
IH | | 6 | мутон | ІШІ | і | р | (wn | 
іы! Гр | оао тота та ты | | {ш О || 
-----------------------------------------------і--------------і----ңді 
l imi | | 1 l | [ р | | 1 4 | + | 
| ГЕ I t і | і | | 1 l | | ! | р 
| і | | і і l | 1 2: | | | | | l | i 
| о П іші l | іші | I= | і { | 
| КО! ата | іші інінігіңі ін | (om | 
| 1d | (aie | іж |І ідсінішіні IH I ісі 
Ор i^n рш ш | [al | | ршщ |] | > Ir [| ГЕ | 
інішішіі | 1 0 1 плю! ж {ҥнҥ та 1 O 1m! і 0 | 
б IL MÀ e — —— o А А е А ue ль eee wale ——— lew — ot 
о «4 N m = Та Ne} ~ о ON É fü Oo a 2 fa 


* Not second version 
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4. FORMAT OF TRIPLES 


ci = NE PNG NS: | 
| 

| TRIPLE TYPE |НЕХ |FIELD 1 |FIELD 2 | 

The triples produced as output from the | | CODE] | | 
translator phase each consist of five Ы--------------- +----+--------- +--------- 4 
bytes, ап operator followed by two 2-byte | TITLE | 04 | = {OPERAND | 
fields. Each of the two-byte fields may be ҒЫ--------------- +----+--------- +--------- 1 
occupied by an operand, which may be a | ATTRIBUTES | 05 | = |OPERAND | 
dictionary reference, a code byte or code ----------------- I----4--------- Ғұ--------- 1 
bytes, ог а numeric parameter. Two zero | PAGESIZE | 06 | - |OPERAND | 
bytes in place of a dictionary reference Ы--------------- +----+--------- +--------- 1 
operand imply that the operand із the | IDENT | 07 | - |OPERAND | 
result of previous operations, and that its Ғ---------------- Ғ---і--------- Ғ--------- 1 
type and location are described in а  TMPD | LINESIZE | 08 | = |OPERAND | 
in the text. -}---------------- +----+--------- +--------- 1 
| INTO | OA | - |OPERAND | 

The number of operands and the fields }---------------- +----+--------- %--------- 1 
which they occupy depend upon the type of | FROM | OB | - |OPERAND | 
triple. The following table contains this ----------------- +----+--------- I--------- 4 
information for all the triples used in the | KEY | OD | = |OPERAND | 
compiler. --------=-------- I----14--------- і--------- 1 
| IGNORE | OF | - |OPERAND | 

---------------- ---і---------і---------1 

| FILE | 10 | - |OPERAND | 

---------------- %----і---------1---------і 

| LIST | 12 | = | = | 

---------------- %----і---------4---------і 

| EDIT | 13 | - | - | 

---------------- і%----1---------4---------1 

| DATA | 14 | - | - | 

---------------- }----+---------}---------4 

| STRING | 15 | - |OPERAND | 

---------------- ----1---------і---------1 

|5КІР | 16 | - |OPERAND | 

---------------- і----і---------і---------1 

| LINE | 17 | - |OPERAND | 

---------------- і----1---------і---------1 

| PAGE | 18 | - | - | 

---------------- а 

| COPY | 19 | = | = | 

---------------- }----}---------}---------4 

| KEYTO | 1A | - |OPERAND | 

---------------- і%----4---------і---------1 

| ЕРІ, | 1С | = | Ж | 

---------------- %----1---------і--------- 

| KEYFROM | 1Е | - |OPERAND | 

---------------- %----і---------і---------1 

{FORMAT LIST | 1F | - | - | 

---------------- і----і---------і---------1 

| UP | 20 | - [OPERAND | 

---------------- ----І---------і---------і 

| GIVING { 21 | - |OPERAND | 

---------------- ----1---------і---------і4 

| DOWN | 22 | = |OPERAND | 

---------------- і----і---------1---------1 

| REPLY | 25 | - |OPERAND | 

---------------- і----і---------1---------і 

|BUY CHAMELEON | 27 | - |OPERAND | 

---------------- }----}~--------}--------- 

|МТА | 27 |OPERAND 1|OPERAND 2| 

---------------- }----}---------}--------- 

| MSA | 28 |OPERAND 1|OPERAND 2| 

---------------- -----і---------і---------1 

| DEFINED | | | | 

| SUBSCRIPT | 2E |OPERAND | - | 

— —— ——— b салы ы лы алуа dccus J 
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г т т qon emm 1 cuin deu E қанау Co т харе анды > 1 
| COMPILER | | | 1 | FORMAT LIST' | 5F | - | - | 
| FONCTION | 30 {OPERAND | = | ----------------- +----+--------- +--------- 4 
---------------- %----і---------і1---------і UP" RE ыр” ше “л 
| COMPILER | | | |. pese qe ОИ, = 1 
‘FUNCTION CALL | 32 |OPERAND | - | |DO EQUALS | 61 |OPERAND 1|OPERAND 2| 
---------------- %----1---------1---------| |----------------і----і---------і---------4 
| COMPILER | | | | | DOWN* | 62 | - | - | 
| PSEUDO-VARIABLE | 34 |OPERAND | - | Ғ---------------- %----1--------- {--------- 4 
---------------- І----Ғ---------і1---------і [ERROR Гез = | = d 
|BUY ASSIGN | 37 |OPERAND 1|OPERAND 2|]  [---------------- I----14--------- 4--------- 1 
---------------- і----і-------4---------414 | LESS/EQUAL | 65 |OPERAND 1]OPERAND 2| 
| ARCO І38| - | - | ғ--------- +----+--------- %--------- 1 
---------------- +----+---------+---------1 | GREATER/EQUAL | 67 |OPERAND 1|OPERAND 2| 
|PSEUDO-VARIABLE | 3A |OPERAND | = | Ы---------------- +----+--------- +--------- 1 
---------------- 4----4---------4---------4 | LEFT | 68 |OPERAND 1]OPERAND 2| 
| FUNCTION | 3C |OPERAND | - | ҒЫ--------------- ---і--------- і-------- 
---------------- T----4---------]---------4 | МОТ EQUAL | 69 |OPERAND 1|OPERAND 2| 
| SUBSCRIPT | 3E |OPERAND | - | E---------------- +----+--------- +--------- 
---------------- Ғ----і1---------4---------1 | EQUAL | 6B |OPERAND 1|OPERAND 2| 
| COMMA [ud - d * [d d—-—--- і----і--------- 1--------- 1 
---------------- і----4---------4---------41 | GREATER | 60 |OPERAND 1|OPERAND 2| 
| FUNCTION COMMA | 42 | = |OPERAND | ҒЫ--------------- I----t--------- 1--------- 1 
---------------- і----і---------1---------І | DEFINED | | | | 
| COMPILER | | | | | SUBSCRIPT’ | ӨЕ |OPERAND | = | 
| FUNCTION COMMA | 44 | - JOPERAND |  [---------------- +----+--------- +--------- 4 
---------------- Ғ ---і---------4---------41 | LESS | 6F |OPERAND 1]OPERAND 2| 
| ACT | 45 |OPERAND 1|OPERAND 2| Е---------------- I----.1--------- +--------- 4 
---------------- %----і---------4---------І | COMPILER |o | | 
|COMPILER ASSIGN | 46 |OPERAND 1]OPERAND 2| | FUNCTION' | 70 |OPERAND | - | 
}-7-------------- +----}--------- }--------- 1- Н------------ %----і--------- і--------- | 
| ASSIGN | 47 |OPERAND 1|OPERAND 2) | COMPILER | | | | 
————Á————————-- 4----1---------і---------1 |FUNCTION CALL' | 72 |OPERAND | - | 
| DROP | 48 | = JOPERAND | р---------------- +----+--------- Ғ-------- 1 
---------------- %----1---------і1--------4 | MINUS | 73 |OPERAND 1|OPERAND 2| 
| CONCATENATE | 49 | ОРЕКАМР 1|OPERAND 2| [---------------- I----14--------- +--------- 4 
---------------- %----1---------1---------і1 | COMPILER 527 | | 
|BUY B | ЧА | - |OPERAND | |PSEUDO-VARIABLE']| 74 |OPERAND | = | 
---------------- і----4---------і---------і І----------------|----і---------1---------і 
| OR | 4B |OPERAND 1|OPERAND 2| | PLUS | 75 |OPERAND 1|OPERAND 2| 
---------------- 1----і---------1---------і |----------------і---і--------і4--------і 
| AND | 4D |OPERAND 1|OPERAND 2| | DIVIDE | 77 |OPERAND 1]OPERAND 2] 
---------------- %----4---------4---------і І----------------Ғ-----4---------4---------1 
| NOT | ЧЕ | - JOPERAND | | MULTIPLY | 79 |OPERAND 1|OPERAND 2| 
---------------- %----1---------4---------і| Н---------------і----4---------і---------1 
| LIST' | 52 | - | - | |PSEUDO-VARIABLE'| 7А | ОРЕКАМО | - | 
---------------- %----1---------4---------| |І----------------%----і---------4---------1 
| EDIT' | 53 | = | = | | PREFIX MINUS | 7B | E |OPERAND | 
---------------- -----1---------4---------іІ І----------------і----і---------і---------1 
БАТА" | 54 | - | - | | FUNCTION’ | 7С |OPERAND | - | 
---------------- і----і---------1---------і| penne enn ef Е я ини, 
| STRING" | 55 | - | - | | PREFIX PLUS | 7D | - |OPERAND | 
---------------- ----І---------4---------і І----------------4----4---------і---------І 
| STMPD | 56 |ОРЕВАМР 1|OPERAND 2| | SUBSCRIPT' | 7E |OPERAND | - l 
---------------- Ш 
| MULTIPLE ASSIGN | 57 |OPERAND 1|ОРЕВАМО 2| | EXPONENTIATE | 7F |OPERAND 1]OPERAND 2| 
---------------- і----І---------І---------іІ І----------------і---1---------і--------- 
| TMPD | 58 JOPERAND 1|OPERAND 2| | TO | 80 | - | - | 
---------------- --------------і--------- ----------------1----і---------і---------і 
| JMP | 5B |OPERAND 1|OPERAND 2| |ALLOCATE | 81 | = |OPERAND | 
---------------- +----+--------- 1--------- 4 Ғ----------- }----}--------- $--------- 1 
| ЕРІ. | 5С | s | x | [BY | 82 | = | 5 | 
---------------- І----і---------4---------і | |----------------і----4---------і1---------1 
| LITERAL CONSTANT| 5E | - |OPERAND | | FREE | 83 | - |OPERAND | 
c PER € doce ecu J [---------------- I--2--1--------- +--------- 1 
*This triple may have two operands in | WHILE | 84 |OPERAND | = | 
format lists. ---------------- 1----1...-..-..-. 1.-------- 4 
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| OPERAND 
| OPERAND 
| OPERAND 
| OPERAND 
| OPERAND 
| OPERAND 
| OPERAND 
| OPERAND 
| OPERAND 
| OPERAND 
| OPERAND 


C4 |OPERAND 1|OPERAND 2| 
D2 |OPERAND 1|OPERAND 2| 


BE | 
BF | 
со | 
DA 
DB 
DE 
DF 
EB | 
FF | 


-E1 
}----------------}----4---------4---------4 


ІР" 


Ер 
EE 
F9 
FB 


F7 
-----------------і----і---------і---------4 


ро" 


ЕЗ 
}----------------4----}---------4---------4 


| BEGIN’ 


C9 

D4 

D5 

D6 

D7 
ļ----------------ł}----}---------ł---------4 

D8 

D9 

DD 

ЕЦ 

Е1 
а 


С? 
}~---------------}~~--}---------}--------- 


| READ 


C2 
ļ----------------ł}----}---------}---------4 


| WHILE’ 


| CC |OPERAND 1|OPERAND 2| 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| FS | 
| 
| 


-----------------4----4---------4---------4 


|END PROG 2 


= 


}----------------}----}---------}---------4 


Ic" 


АИ И у то ы лт 


| NOSNAP 
}----------------}----}---------}---------4 


| FORMAT 
— ——— — — M 


| TO' 

}----------~----~}----}---------}---------| 
І-----------------і----і---------і---------1 
І----------------і----4---------і---------1 


ІСУ" 
І-----------------і----4---------4---------і 


[STATEMENT NUMBER| DO |OPERAND 1]OPERAND 2| 
ea a АІ эзш шышы] 


| STATEMENT LABEL | 
}----------------}----}---------4---------4 


| COMPILER NUMBER | 
| 


| СЕТ 
ļ----------------ł}----ł---------ł}---------4 


| СОМРІТЕК LABEL 
а а а 
}----------------}----}---------}---------+4 


| UNLOCK 
}----------------}----}---------4---------4 


ГЕ" 
-----------------І----і---------і---------1 
----------------і----4---------і---------1 
| CLOSE 
}----------------4----}---------}---------4 
}----------------}----}---------f---------4 
|END PROG 
}----~-----------}----}-----~---}---------4 
І----------------4----і---------і---------1 
І----------------4----4---------4---------1 
І----------------%----і---------і---------1 


|IF' OR ON 
-----------------1----4---------і---------1 


| FORMAT" 


| BY" 

| WRITE 

| PUT 

|E' 

| REWRITE 

| OPEN 

| САШ," 
|END BLOCK 
|END I/O 

| PROC" 

| ITERATIVE 00" 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
—————_—__м___ 
| 


}----------------}----}---------}---------4 


| OPERAND 
| OPERAND 
| OPERAND 
| OPERAND 
| OPERAND 
| OPERAND 
| OPERAND 
| OPERAND 
| OPERAND 
| OPERAND 
| OPERAND 
| OPERAND 
| OPERAND 
| OPERAND 
| OPERAND 
| OPERAND 
| OPERAND 
| OPERAND 
| OPERAND 
| OPERAND 
[oce cesse R eee peer] 
| OPERAND 
| OPERAND 


І----------------і----4---------4і---------4 
| OPERAND 


и] 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
€—— — eee 
| 


8C |OPERAND 1]|OPERAND 2| 
B9 |OPERAND 


86 
8B 
8D 
8F 


90 
— — MÁY 


| END ALLOCATE 


91 
92 
95 
96 


97 
= 


[Е 


98 

99 

9А 

9Е 

AO 

Al 

A2 

АЗ 

AU 

A6 

A7 
к eer eet cel 

AD 

AE 

B3 
}----------------}----}---------}---------4 


94 
| ВВ |OPERAND 1|OPERAND 2| 


| B7 |OPERAND 
-----------------і----і---------4---------1 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| AF | 
| BS | 
| Be | 


}----------------}----}---------}--------- 


| DISPLAY 


| 
€———— 

| 

| 

| 

| 

| 


}----------------}----4---------}---------4 


}-----~----------}-~--4----~----4--------- 


| 
ye са 
| 
| 
| 
| 


е 


ІР 


ļ----------------}----ł}---------}---------] 


Le ey ea ee te Ege ge Paana O Dies gigs a a a 
|X 


| SNAP 
І----------------4----4---------і---------1 


| DELAY 
}----------------4----}---------}---------] 


|cv 
| ----------------}----}---------}---------] 


| EXIT 
І----------------4----4---------і---------1 


| STOP 

= 
}----------------}----}---------4---------4 
| PAGE 

p----------------$----}---------}---------4 
-----------------і----і---------і---------4 
І----------------4----4---------і---------1 


| REVERT 
— —  — M —Á 


|F 
= 


іс 
= 
а 


|СО OUT OF BLOCK | AS | 
Е-<--------------4----4---------4---------4 


IR 
-----------------і----4---------1---------41 
І----------------1----4---------1---------4 


| ITERATIVE DO 


| LINE 

| SKIP 

| COLUMN 
| SIGNAL 
[А 

| CALL 
[в 

| RETURN 
|50 TO 
| SELL 

| BUY 

| BUYS 

| PROC 

| OPERAND 
| DO 

| IF 

| SN2 
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Suc 


6. 


TEXT CODE BYTES IN PSEUDO-CODE 


0 1 2 3 4 5 6 7 8 9 A B C D E F 

edad: КОЙЫН БЕ ЫЕ panty Sandy Cee боска DNC Das CATS eS Ce aaa MM RNC MMC дауым алара). aaa, о | 
|DCVO |OSM1 |BGPE |BLBS |LCR |LCDR|LCER|LM |BCTA'|LH |LA |CLI [CLC [TR |o: | 
-----{------+-----+-----+----+----+----+----+-----+----+----+—----+——--+------+--+--—1 
[рсу1 |OSM2 |ков |BLBS"|BCR |SPM [CLR |SLA |BC |сн |с. |муі |мус |TRT | | | 
-----і------4----- +-----+----+----+----+----+-----+----+----+-----+----+------+--+---1 
|DCV2 |ALLOC | |BUYS |HER |LTR [ALR |SLDA[DCF |AH JAL [м  |MVN [PACK | | | 
------ {#===—== т ыйы иса: уздун ния тин Ене +----+-----+----+----+———-- ł----ł------ +--}---4 
|DCV3 |DCA3 | |PINS |HDR |LTER|SLR |SLDL|BCTA |SH |SL |01 |муо |UNPK | | | 
каше aOR SE Жон SERRE! SERRE кир т Ол ЕЛЕ ЭИ ии Чараны MERERI 
|DCV4 |DCA4 |ADR |RWA [|BCTR|LTDR|RER |SLL |BCT |MH [STC |55М |МУ2 |IGNORE| | | 
pe ł------ %----- тезі = Е Е БЫ ее еее 
|DCV8 |ЕВЕЕ |5М3 |АРЕМ [NR |LNR [LPR |SRA |М ISTH [ST |тм [NC | Г | 
Е Жаннын ЕЕ es шш oou [epe шрын ш От р ызы шн а ыш] 
|DROP |BUY [BCIN [USNG |OR |LNER| LPER|SRDA|O |sTRD|STRE|XI [ос |coNv | | | 
jam O ł----- ł----- +---+----+----+---—+——--- +----+----+----- +----+------ +--+---1 
|EQU |SELL |STOP |DATA |XR |LNDR|LPDR|SRDL|X |STD |STE |тА' |XC |CONV' | | | 
-----4------1-----і----- І----І----і----1----4-----4----1----і-----і----і------і--1--1 
|PROC |PROC' |BGNP |FMT [LR |LDR |LER |SRL |L |20 |LE |L'  |ZAP |0551 | | | 
‚== LE теа етсе pene +----+----+----+----+-----+----+----+-----+----+------+--+--—-{ 
| BEGIN|BEGIN'|BGNP'|FMT' |CR |CDR [CER |STM |с [СО |CE |вст" |CP |DRPL | | | 
ү-----+------+-----+---—-- ESEE EE т ке ышына +----+----+----- і--<-Т--<--- і-і---і 
|STK [АБУ |рков”| JAR [ADR {AER |BXH |А JAD [АЕ |FMT |АР |cNVA | | | 
Е-----4------3-----4-----4----4----4----4----4-----3----і4----і4-----і----4------і--і--1 
[ЕОР |PLBS  |PLBS'| |SR [508 [SER |BXLE|S |50 |SE |FMT' |5Р |SINL | | | 
-----і------і-----і-----4----і----і1----1----4-----1---і----4-----і----і------ t--+---4 
|EOP2 |PCBS |PSLD |ERROR|MR |MDR |MER |511 |М [MD |ME |SN2 |MP |cNvC | | | 
-----+------+-----+-----+----+---- +----+----+-----+----+----+-----+----+------+--+--—{ 
|IPRM |IPRM' }АВ5 |PFMT |DR |DDR |DER |SN |р |DD [ОЕ |OSM3 |DP | | | | 
-----+------+-----+--—--- 4----4----1----і----4-----4----і----4-----і----34------і-і---і 
[ЕРАМ |EPRM' ]ABS' | [svc [AWR [AUR |CL1 [IC |AW |AU {ADI (Ер | ГЕ | 
[==--}===з===р=———-р==—--—=-=р—--=р-=з ити ИИ = +----+------ +--+---1 
|ITDO |ITDO' |ALIGN| |BALR|SWR |SUR |CN |BAL |sw |50 | | EDMK| |I d | 
ЕЕ Xlll Е oe и ОЗЕОНЕН SA CEPDEN SEEE к OESO OEREN. E .--- EE L--L---1 

TEXT FORMATS IN PSEUDO-CODE immediately after the symbolic 


representation of the instruction to 
which if refers. 


Pseudo-code Design 


Five-byte unit: there are four basic 
Pseudo-code is essentially a symbolic five-byte units which have the follow- 


representation of machine code, designed in ing formats. 

such a way that it is possible to directly 

transform it into executable machine code Bytes 

by an assembly process. 1 2 2 


code followed by, normally, a two or four- 
byte field and on the other occasions by a | CODE 
variable length field. The bit pattern of -----—- 


A unit consists of a one-byte operation | OP 


E ———4 
р. 
к 
------4 


the operation code indicates the type of 
unit which it heads. 


five bytes long, the scanning of  pseudo- г------ 
code is а fairly straightforward process. | ОР 


units is as follows: bose 


Bytes 
By having most units either three or 1 2 2 


— MÀ MÀ —— — ee «ле «м» оо — «ме шыш 


те aea “Жан «Ағы DE ED безі ж» AUR MEO 


The format of the various pseudo-code | CODE 


н———4 
m 
ы 
-------і 


i 
OFFSET | 
| 
4 


> amp au «ки» «ки» — «ши» инь CENA тыл —— qu «кел ӨЙ «um мыл» dee: dts «қаз em іле» «кө» ate мп Quid. cust iih. 


Three-byte unit: this consists of а 
one~byte operation code followed by a 
two-byte literal offset, and it appears 
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1 2 2 

[^ тыны сала W IY S UD S x SCENE DNE E E C RE 1 

| ОР | | | 
| R1 | R2 | 

| CODE | | | 

Е ЖБосшсшшешс-ды ты do x4 uL ics J 

[YT Dey ee he AEDEM ІЗ тулт а оаза 1 

| ОР | 1 | R2 | 
| НЕХ | 

| CODE | 0 | DICT REF | 

[ee Looe ee Se ЕЕ АНЯ РНЕ АОИ 4 


Using these units with, if necessary, a 
three-byte unit, it is possible to symboli- 
cally represent any possible RR, RX, RS or 
SI instruction. 


Variable length unit: the format of 


this is: 
Bytes 


———————— = 1 


| 
VARIABLE | 


к----4і 
Hj 
~ 
D 
б) 
------- 


Se ae J 


With a specially designed variable field 
described by a two-byte flag, it is possi- 


ble to represent any SS instruction with 
this unit. 


The first byte 
indicates the format of the variable 
and the second gives the 
total unit. 


of the two-byte flag 
field 
length of the 


RX Instructions 


I—————I—— ILI 


The following 
basic forms of 
way in which they are 
pseudo-code. 


examples illustrate the 
an RX instruction and the 
represented in 


L R1,JOE 
Bytes 
1 2 2 
паразай пагар E ee we ge re анар 1 
| L | 0 R1 | DR(JOE) l 
— ———— Ht RC ———" J 
L R1, JOE*2U 
Bytes 
1 2 2 
po ve ту, Туркт oo St АЗЕ 1 
| L | 0 R1 | DR(GOE) | 
Lees. corno dl —— ecc v "—— ыша 4 
ме өле «кі» a «кә “ңе Se a е колы тағы | 
| 05М1 | 28 | 
ЕЕ A N on ЕЕ 1 


Г R1,JOE(R3) 


Bytes 
1 2 2 
кашыка oe ee не Nr ee ee 1 
| L | 0 R1 | DR(JOE) | 
en ee Bt ig —— RR ——Ó——À 1 
reme рк к ыйы ак-чек ер ЕЕЕ 
| OSM2 | R3 | 
Сала hie oe eo 4 


Bytes 
1 2 2 
Et ақы п dp D eT 1 
| L | 0 R1 | DR(JOE) | 
—  ——— ee ЖЕ ыссы Rund EE 1 
[orm Me UR ee А В A ee eS oe 1 
| OSM3 | 24 | R3 | 
— rU T —  — e: 1 


Alternatively, JOE might be a base reg- 
ister in which case the dictionary ref- 
erence would be replaced by а symbolic 
register. The two forms‘are distinguished 
by setting the flag bit of the first 
symbolic register equal to one when a base 
register is intended. 


L R1,0(R3,R2) 
Bytes 


! 
} 
! 
! 
і 
| 
H — A ркем 
! 
| 
| 
| 
і 
і 
і 
l 
| 
і 
| 
I 
- 
| 
| 
| 
| 
| 
t 
| 
| 
{ 
| 
[ 
} 
і 
e 


When a branch instruction is generated 
which branches to а. compiler generated EQU 
value, bit two of the second byte is set to 
one to indicate that the second field is in 
fact an EQU value. 


Bytes 

1 1 1 2 
pouce poem oc a = 1 
| Bo | 01 | HEX |EQU VALUE| 
шысын Балы ады dice ns FQ J 
Bytes 

1 1 1 2 
pc qoem poc qom 1 
| [1 | | R2 | 
| BC | 0 | HEX  [--------- 
| | 0 | | DICT REF | 
loose Е ПИА IE a a a adi. J 
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RS Instructions 


The following examples illustrate the 
basic forms of an RS instruction and the 
way in which they are represented in 
pseudo-code: 


BXH R1,R2,ALPHA 


Bytes 
1 2 2 
pt qu TEE quoe mem 
| BXH | 0 R1 | DR(ALPHA) | 
Lane В ВИ aee ЕН —— — €! 4 
2 m qo rper eed 
| OSM2 | R2 | 
e ame == ышы — 1 
BXH R1,R2,ALPHAt24 
Bytes 
1 2 2 
—Á— Т-------------т------------- 
| ВХН | 0 R1 | DR(ALPHA) | 
Қы Басы D -——— ыы —————— 4 
AF MT EE quecumque E 
| OSM3 | 24 | R2 | 
bcc lec Қаласы ады ы per НЫНЫН Жолы а та ыы 4 


base 
in which case the dictionary ref- 


Alternatively, ALPHA might be a 
register 


erence would be replaced by а symbolic 
register as in the RX instruction. 
SLA R1,6 
Bytes 
1 2 2 
(Ur imp ee Se er mM 1 
| SLA | R1 | 6 | 
Wee ee Be E J 


RR Instructions 


The following example illustrates the 
form of an RR instruction and the way in 
which it is represented in pseudo-code. 


AR R1,R2 
Bytes 
1 2 2 
аана: Чана ee аа бараси Б УРЕ 1 
{ AR | R1 | R2 | 
Е Жараты Жазығы сы ыдысы 1 


334 


SI Instructions 


The following examples illustrate the 
basic forms of an SI instruction and the 
way in which they are represented in 
pseudo-code: 


CLI BETA,X'FF' 
Bytes 


— «м» ен» ы» е» «м» «м» ge -— «м» «ы» «же «кө» «ә «м «м» «қы «ме» ee «лғ» Qe «шо ем» «ки» шы жи» чыш шш шш шш «лы» — ша «е. 


Bytes 
1 2 2 
DDR M E Tose E нона | 
| CLI | 0 ЕЕ | DR(BETA) | 
Bee сызы di ce RE ene a cc ud Dee ВНИИ 1 
oe aaa aa as a ia | 
| 05М1 | 4 | 
bonn ыы ЕО NL era ше 1 
Alternatively, BETA might be а Базе 
register in which case the dictionary ref- 


erence would be 
register. 


replaced by a symbolic 


SS Instructions 


an SS instruction consists of 
two base registers and a length byte. 
Since this does not conform to the format 
of other items of pseudo-code, it is neces- 
sary to represent an SS instruction with a 
variable length field, the length of which 
is specified in the second of two flag 
bytes immediately following the operation 
code. 


Basically, 


This variable form of pseudo-code will 
be used to convey items of information 
internally between compiler phases, at the 


Same time maintaining the items in the 
guise of pseudo-code. 
Variable Length Item FLAG 

The first bit of the FLAG indicates 


whether or not the unit represents a 
machine instruction. In the former case, 
the format of the instruction is: 


Bytes 

1 1 1 1 2 2 2 2 
po Ny or Пе Agee eee ЕЕ Ge ee аа ааа, паа 
[ОР | | | | | | | | 
| |FLAG|LENGTH| F1 | F2 | ЕЗ | ЕЧ | F5 | 
| CODE | | | | | | | | 
Е 14----1----4----1----4----1 


The format of the FLAG is: 
Bit Zero One 
1 Always zero 

2 F2=dict. ref. F2=sym reg. 
3 F3=dict. ref. F3=sym reg. 
4 F4 not present F4 present 
5 F5 not present F5 present 


6-8 Not used 


The FI field is identical to the length 
field in the SS machine instruction. The 
field contains one or two lengths which are 
each one less than the corresponding 
lengths used in Assembler Language. The F4 
and F5 fields contain literal offsets. 


Compiler Function (Bit 1=1) 


In compiler functions, the format of the 


FLAG depends on the operation code. Thus: 
a tN a a ge EROR UN Е 
| CONV | FLAG | LENGTH | Е1 | F2 | 
Loc cc Ecce occus A-c-olosand 
The format of the FLAG is: 
Bits Both Zero Both One 
1 Always one 
2 and 3 Fi=dict. ref.  F1-TMPD operand 
4 and 5 F2=dict. ref.  F2-TMPD operand 
6-8 Not used 


The FLAG in the IGNORE 
contain any information. 


item does not 


The following examples illustrate the 
basic forms of an SS instruction and the 
ways in which they are represented іп 
pseudo-code. 


MVC ALPHA(7),BETA 
Bytes 
1 1 1 1 2 
[мус] x* 00" | 8 | 6 [о (АРНА) | 
енин иы КЕЕ КИРЕНЕ cols, 
"8 
| DR (BETA | 


ZAP | ALPHA+3(14), BETA(6) 
Bytes 
1 42. 1 1 2 
Ruta Sete лы Сы таза oe АЫ 
|zap|X'i0*| 10 |13 5 |DR(ALPHA)| 
2 2 
|DR(BETA) | 3| 
Exc REDDERE 1 
MVC АГРНА(6), ВЕТА+11 
Bytes 
i 1 1 1 2 
|мус|х'08'] 10 | 5 | DR (ALPHA) | 
tL. Le 1.......... п катти иа ын ын 
2 2 
|DR(BETA) | 11| 
АР ALPHA+3 (14), BETA+11 (6) 
Bytes 
1 1 1 1 2 
[AP ix? 1841 12° 113 5 |DR(ALPHA) | 
= 1-е Ары салшы ae en a -4 
2 2 2 
pell ates eeu 25 
|DR(BETA) | 3| 11| 
cM ae ls es to Losazid 


Alternatively, ALPHA and/or BETA might 
be base registers, in which cases, the 
dictionary references would be replaced by 
symbolic registers and the FLAG byte would 
be set accordingly: 


MVO ALPHA(14), 11(6,R1) 
Bytes 
1 1 1 1 2 
Ivo |x" 28'| 10 113 5 TDR(ALPHA) | 
----..-. 1.---................1 
2 2 


7. TEXT FORMATS IN ABSOLUTE CODE 


Where a standard set of assigned reg- 
isters is to be used for a section of code, 


e.g. in the construction of prologues, or 
during the generation of addressing 
instructions, it is possible to generate 
instructions with registers in absolute 
code, instead of the normal pseudo-code 
two-byte symbolic registers. (See "Text 
Formats in Pseudo-Code" in this Appendix.) 
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Sections of absolute code are preceded 


by ABS markers and followed by  ABS'  mark- 
ers. The operation codes are the same as 
the normal  pseudo-code instructions (see 


"Text Code Bytes in Pseudo-Code" in this 
Appendix), but the instruction formats dif- 
fer, as shown in the following examples: 


RR Instructions 


Bytes 


—— M  —— —— — — — еү- —À «> — --- — 4 --- — — -- 


RX Instructions 


Bytes 
1 1 1 
Конн ыи me fe КЕ E a ЕН ЕКЕНИН i 
| OP CODE | R1 X2 | B2 | 
Қысымда ee Deas Se ш Veen Se ЯЕ 4 
2 1 2 
| DICT REFCE | OSM2 | OFFSET | 
Балаша eee es ee шыш 1 
SS Instructions 
Bytes 
1 1 1 2 
= шшш Бонн se pa кк SS 
| OP CODE | LENGTH | в1 | DICT REFCE | 
Ecce СИЕ СрЕ dlc шы T us RT 
1 2 1 2 
> quomm qve 
| B2 | DICT REFCE | OSM1 | OFFSET | 
бесш mIRC Жалан НИ аны барады ыс 1 
1 2 
г------т-------- 
| OSM2 | OFFSET | 
ссе ы жа. 1 
RS Instructions 
Shift Instructions 
Bytes 
Е 1 2 
uc ie Bre Fig ГА Seo А i po ЫТ 1 
| oP CODE | 81 0 | OFFSET | 
аы. Жама ы ыы лд Жазса 2а J 
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Other Instructions 


Bytes 
1 1 1 
Е Ae oe iE. ee қанады. | 
| OP CODE | R1 R2 | B2 | 
Басы Тасашы шысы сш ЕЕ Ең 4 
2 1 2 
| DICT REFCE | OSM2 | OFFSET | 
[шшш Seek Poe eee Se ЕЕ 1 


SI Instructions 


Bytes 

1 1 1 2 

| OP CODE | MASK |В1 | DICT REFCE | 

сасыса шы. dz дылы ысы ысты Ды ааа ашы 1 
1 2 

ыш ымыны т-------- 

| OSM2 | OFFSET | 

бышы ышын Leze2le 4 


Note that the 05М1/05М2 markers 
following offsets are all optional; note 
also that the OSM2 byte does not have a 
register following it, as in normal pseudo- 
code, but a literal offset. 


and their 


After Phases RA and RF all instructions 
in the text will be in absolute code. 


8. SECOND FILE STATEMENTS, AND THE FORMATS 


OF COMPILER FUNCTIONS AND PSEUDO-VARIABLES 


€—— nÓÀ————— À(—————OÓ—rÜÁ «ет» шу — oÓÀ—«| PM ST wl SS ақыр ақа» 





— ————À——ÓM—À ————M M ——B—— —— 


Any expression occurring in an attribute 
must be put into a form which is acceptable 
to the translator phase. This means that 
it must look like a source statement. To 
comply with this, all expressions dealing 
with array bounds, string lengths, 
DEFINING, and INITIAL value iteration fac- 
tors are converted into assignments to 
function references. These functions have 
a special meaning. They are not entered in 
the dictionary, and their dictionary ref- 
erences are to а region in the communi- 
cations area. The pseudo-code physical 
phase dealing with each particular function 


generates in-line code instead of а func- 
tion reference. 
All the statements of this type are 


generated in the source text after the end 
of the original source program. They form 
a second program and are referred to later 
as the "second file." 


The statements generated have the fol- 
lowing overall format: 


Byte Number Description 
1 Code byte SN2 
2-3 Dictionary reference 
4 Options byte 
5 Statement type markers 


6 Onwards Statement body 

The dictionary reference is the ref- 
erence of a second file dictionary entry. 
This is described in Appendix C. The 
options byte is that for the options opera- 
tive ina prologue, i.e. no interruptions 
are accepted. 


Array Bounds 


The format of the second file statement 
for array bounds is as follows: 
Byte Number Description 

1 Assignment statement marker 

2 Code Byte Х'00' 

3-4 ADV code X'0002' 

5 Compiler pseudo-variable 

6 Left parenthesis 

2 Code byte X'00' 

8-9 Dictionary reference of 
array 

10 Triple operator code byte 
X'uüu' 

11 Code byte X'5E' 

12 Code byte Х"00" 

13 Code byte X'00' for lower 
bound, Х401" for higher 
bound 

14 Number of the dimension 
whose bound is referenced 

15 Right parenthesis 

16 Triple operator code Х'46' 

17%%% Expression for bounds 


Statement terminating semi- 


colon 


Multiplier Function 


Multiplier function statements are used 


to denote copying of a section of one dope 
vector into another. Тһе format 15: 
Byte Number Description 
1 Assignment statement marker 
2 Code byte X‘00° 
3-4 MTF code bytes X'0010' 
5 Compiler call marker 
6 Left parenthesis 
7 Code byte X'00* 
8-9 Dictionary reference 1 
10 Triple operator code byte 
Xx'uu* 
11 Code byte X*'00' 
12-13 Dictionary reference 2 
15 Triple operator code byte 
тыны 
15 Code byte Х*5Е* 
16 Code byte Х"00" 
17-18 Offset 1 
19 Triple operator code byte 
X'uu* 
20 Code byte X'5E' 
21 Code byte X*'00' 
22-23 Offset 2 
24 Triple operator code byte 
X'y" 
25 Code byte X'5E' 
26 Code byte X'00' 
27-28 Length 
29 Right parenthesis 
30 Statement terminating semi- 
colon 


This statement requires the number of 
bytes specified by the length to be moved 
from the dope vector of the item at dic- 
tionary reference 2, starting at an offset 
of offset 2, to the dope vector of the item 
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at dictionary reference 1, starting at an 
offset of offset 1. 


String Length statement 


The string length statement is used to 
‘initialize the maximum length slot in a 
string dope vector. The format is: 


Byte Number Description 


1 Assignment statement marker 
2 Code byte Х*00* 

3-4 SDV code X*0004* 

5 Compiler pseudo-variable 

6 Left parenthesis 

7 Code byte Х' 00" 

8-9 Dictionary reference 

10 Right parenthesis 

11 Triple operator Code X'46' 
12... Expression 


Statement termination semi- 
colon 


The dictionary reference is that of the 
item whose dope vector is being initial- 
ized. If the expression is defining the 
length of a string being returned by an 
internal function, then the dictionary ref- 
erence is that of the entry type 2 belong- 
ing to the label. In Figure 6 the ref- 
erence is to B or C depending on whether 
the statement appeared in a PROCEDURE/ENTRY 
statement, or an ENTRY attribute. If the 
item is a data item, an external procedure, 
or a formal parameter entry point, then the 
Gictionary reference of that particular 
item appears in the statement. 


INITIAL Value Statements 


INITIAL value statements are used to 
initialize a vector of storage used to 
contain iteration factors. It is implied 
that the value of the expression must be 
converted to type integer. The format is 
as follows: 


Byte Number Description 


1 Assignment statement marker 
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2 Code byte Х'00* 

3-4 IDV code 

5 Compiler pseudo-variable 
6 Left parenthesis 

7 Code byte X‘'00* 

8-9 Dictionary reference 

10 Right parenthesis 

11 Triple operator code x'46' 
1254 Expression 


Statement terminating semi- 


colon 


The dictionary reference is to the item 


being initialized. The integer is the 
number of assignment statements of this 
type, and for this variable, that have been 


generated before this one. 


Second File Statements for DEFINED 


Second file statenients are generated 
when an expression iS associated with 
DEFINED, but the expression does not con- 
tain any iSUBs. The format is: 

Byte Number Description 
1 Compiler assignment state- 


ment marker 
2 Code byte X'00* 


3-4 ADF code; 
X'0011' for base only 


X'0012' for subscripted base 


X'0013' for base with 150В"5 
5 Pseudo-variable marker 
6 Left parenthesis 
7... Base and subscript list 


Right parenthesis 


Statement terminating semi- 
colon 


9. . PSEUDO-CODE PHASE TEMPORARY RESULT 


————M— =. 


DESCRIPTORS (TMPD) 


Temporary Description Stack 


All information on temporary results is 


contained 


in this stack. 
Stack consists of 10 bytes. A 


Each item in the 
maximum of 


200 items is allowed. 


Byte 1 


Byte 2 


Bytes 3-4 


Bytes 5-6 BASE 


Byte 7-8 


Flag 1 


Code 2 


P,Q 


NDX 


describes the addressing 
method contained in bytes 
5 through 10. 2 bits in 
this byte are also used 
during the release of 
temporary resuits 


describes the radix, 
Scale, mode, string type 
etc. of the temporary 


result. The format of 
this byte is identical to 
the similar byte in the 


dictionary and the DED 
used by the Library sub- 
routines. routines. 
(See "Data Byte" in 
Appendix C.) 

describes the precision 


and scaling of arithmetic 
type results 


in one 
forms: 


of the following 


1. "Reg by value" reg- 
ister containing the 
result - no index or 
offset is allowed. 


2. "Reg by value" reg- 
ister containing the 
base address of the 


result stack 

3. Offset from beginning 
of current temporary 
Storage for results 
held in the temporary 
storage stack 

ц. Dictionary reference 
which specifies the 
base address of the 
result of a subscript 
calculation 


in one of the 
forms: 


following 


1. Symbolic indexing reg- 
ister for BASE type 2 
and 4. 


2. The number of bytes 
required in the ten- 
porary core stack for 
BASE type 1 


which is a literal offset 
to be inserted in the 
base address. When used 
with BASE type 1 the 
actual temporary offset 
is the sum of the offsets 
and the number of bytes 
required in the stack is 
the sum of the contents 
of OFS and NDX 


Bytes 9-10 OFS 


Strings are 
ways: 


described in the following 


If the string is of fixed length less 
than 256 bytes, it is given storage in 
the core stack. This type of string 
has a dictionary entry if it is passed 
to a subroutine. 


If the string is of variable length or 
longer than 256 bytes, the storage is 
bought and sold when required. This 
type of string always has a dictionary 
entry. 


If the string has no dictionary entry, 
it is described by the usual CODE 
bytes, the temporary core offset in 
BASE, and the byte length in NDX. 


If the string has a dictionary entry, 
it is described by the usual CODE bytes 
and the dictionary reference ІМ BASE. 
The dictionary entry describes the 


location of the string which may be 
either the temporary area offset and 
Size for the first type, or a BUY 


statement for the second type. 


The ‘top’ of the stack is 
two pointers: PSTK and LSTK. 
to the 'physical' top of the stack, which 
is the last item added.  LSTK points to the 
‘logical’ top of the stack, which is the 
next item to be released. The difference 
is necessary because the temporary storage 
Stack may not be released in the same order 
as the description stack. When an item in 
the description stack is released, the 
corresponding temporary storage may not be 
at the top of the stack storage. As the 
storage stack is always released in order, 
the description is flagged and the LSTK is 
reduced by 1 item. When the corresponding 
temporary core is released from the top of 
the storage stack, the description is  com- 
pletely removed from the 'physical' stack. 


indicated by 
PSTK points 
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к арм | 
|FLAG | F5 | F6 
}---~- %---------- -і----------- + 
| X'00* |Dictionary | - | Yes 
| ]reference | | 
|Х*02* | рісёіопагу | - | No 
|reference | | 
|X*O4* {Dictionary | = | No 
|reference | | 
1Х705" | рісёіопагу {Dictionary | No 
1 | геҒегепсе 1|reference 2] 
[x'20*'|Dictionary |Index | Yes 
| |reference |register | 
|Х*%1* | Symbolic {Dictionary | Yes 
| | register |reference | 
4X*"49"| Symbolic |Dictionary | Yes 
| | register [reference | 
[x'80'|Register | ~ | No 
[X'CO'|Workspace | $ | Үез 
| | offset | | 
|X'Ci'jWorkspace [Dictionary | Yes 
| joffset [reference | 
[x'c5'|workspace |Dictionary | No 
| joffset |reference | 
}----- dec agni eds c "——— Á— 1 
|Notes 1. 


Since Е6 cannot be used for both ап index register and а dictionary 
| reference, bits 2 and 7 of the FLAG byte cannot both be 1. 


See узшш В аад 1 
| Whether F7] 
lapplicable| 


Comments 1 
І---------------------------------------------- 1 
| | 
| | 
|STRUT2 output -- must SELL dictionary ref. | 
| | 
|КЕРЕАТ function result. | 
| | 
|SUBSTR function result. | 
| | 
[Arithmetic subscript, or SDV for varying | 
|string subscript. | 
|Non-adjustable fixed string subscript, with | 
| DROP in STRUT2. | 
|Non-adjustable fixed string subscript, without | 
{DROP in STRUT2. 1 
|Item in register -- F7 cannot exist. | 
| | 
|SDV for adjustable fixed string subscript. | 
| | 
|SUBSTR pseudo-variable result. | 
| | 

Be es es 1----------------------------------------------4 
| 
| 
| 
| 
4 


| 2. Many other bit configurations in the FLAG byte are meaningful and could 
| be used for future applications. 
NUI ep ee etr es салаға ады шы сы MO EE TUE TOR TERI ET NORRIS OSEE ME ee ЕР 
Figure 11. Temporary Descriptions in Pseudo-Code -- Use of TMPD Triple Fields F5 and F6 
Iempoxary Descriptions in Pseudo-Code 3 0 Two TMPD triples are 
used 
1 Three  TMPD triples are 
Descriptions are passed between  pseudo- used, and F7 contains 
code phases using two or three TMPD an offset 
triples, with the following formats: 4 0 Normal setting. String 
utility STRUT2 drops 
г------ т----т----т----т----1 symbolic register іп Е5 
| TMPD |FLAG| F2 | F3 | F4 | if used for input 
[------ 4 tif df 1 String utility STRUT2 
| TMPD | Е5 | F6 | does not drop symbolic 
=== фе ае register 
| TMPD | F7 | | 2 0 Normal setting 
1------ 1--------- ba ed 1 Result of an invocation 
of SUBSTR or REPEAT 
1. FLAG describes the use of fields F5, 6 0 No SELL is required 
F6, and F7. 1 User of this descrip- 
tion must SELL dic- 
Bit tionary reference in 
Number Value Meaning Е5. Set by string 
utilities for adjusta- 
0 and 1 00 F5 contains a dictiona- ble string result 
ry reference 7 0 F6 does not contain a 
11 F5 contains a temporary dictionary reference 
workspace offset 1 F6 contains a dictiona- 
01 Е5 contains symbolic ry reference 
register with address | 
‘of item 2. CODE contains the data byte 
10 F5 contains register (describing type, radix, scale, mode, 
with value of item etc.) 
2 0 F6 does not contain 
index register 3. ЕЗ and F4 contain: 
1 F6 contains index reg- a. Precision and scale factor of 
ister coded arithmetic type data 
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b. String length for coded  non- 
adjustable strings (maximum length 
for varying strings) 

C. Picture dictionary 
data with picture 


reference for 


4. F5 and F6 are at present used as shown 
in Figure 11. 


5. F7 сап be used by adding X'10' to the 
FLAG byte in all cases which give a 
meaningful result (see Figure 11). 


10. LIBRARY CALLING SEQUENCES 


Internal library routines are used for 


such things as data type conversion, where 
there is no explicit reference to the 
routine in the PL/I source program. The 


arguments are handed to the routines in 
registers. In pseudo-code form, assigned 
registers are used, and special markers, 
IPRM and IPRM' are used to indicate the 


calling sequence to the register allocator 
phase. Internal library calls appear іп 
pseudo-code as: 

IPRM 

L 1, (ARGUMENT 1) 

L 2, (ARGUMENT 2) 

L 15, IHE------- (ROUTINE NAME) 

BALR14, 15 

IPRM' 

External library ^ routines calls 

correspond to explicit references to func- 


tions or I/O statements in the PL/I source 
program. The arguments to the routines are 
placed in workspace, and register 1 is set 
to point to the first argument. For 
pseudo-code form the calling sequence is 
preceded by an EPRM marker and followed by 
an EPRM* marker. Thus, the library calling 
sequence appears as: 


MVC WSP (N), (ARGUMENT 1) 
EPRM 

LA 1, WSP 

L 15, IHE-~------- (ROUTINE NAME) 
BALR 14, 15 

EPRM' 


11. DESCRIPTIONS OF TERMS AND 
ABBREVIATIONS USED IN TEXT DURING A 
COMPILATION 





The table in this section gives first, 
the term or abbreviation; second, the phase 
in which the term is used; and third, а 


brief description of the meaning of the 


term or abbreviation. 


The phase in which the term or abbrevia- 
tion is used is given in the second column 
of the table. The key to the code used is: 


R After the Read-In Phase 

PS During the Pseudo-Code Phase 

T A triple or translator input 
code byte 


Used In 
Phase 


Term or 
Abbreviation Description 
A R,T Character string for- 
mat item 

ABS PS start 
code 


Indicates the 
of absolute 
(Appendix D7) 


Indicates the end of 
absolute code 


ABS' PS 


ADR PS The two byte operand 
contains a register 
for use by final 
assembly for address- 
ing branch destina- 
tions beyond 4096 
bytes from the pro- 
gram base 

ADV PS Used in 2nd file 
assignment statements 
to indicate that the 
expression has been 
calculated and that 
the following code is 
only concerned with 
assignment to the 
variable, or its dope 
vector, which is the 
subject of the second 
file statement 

ALIGN PS Indicates that 4 byte 

alignment is required 

in the code at this 
point 

ALLOCATE 


R,T,PS Replaces 


ALLOCATE 


the keyword 


APRM PS Indicates the library 
calling sequence for 
VDA or controlled 
storage 

ARCO T, PS Provides space to 
allow insertion of 
argument conversion 
triple 

ARGUMENT MARK R Marker used by phases 


GK and GP to indicate 
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ARRAY CROSS 


SECTION 


ASSIGN 


ASSIGN BYNAME 


ATTRIBUTES 


AUTOMATIC 


BACKWARDS 


BEGIN' 


BGPE 


BGNP 


BGNP' 


BIT ATTRIBUTE 


BIT CONST 


BINARY 


BLBS 


BLBS' 


BUFFERED 
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R,T 


PS 


PS 


PS 


PS 


PS 


the start of a func- 
tion argument 


Replaces the PL/I '*' 
used to specify an 
array Cross section 


Marker which precedes 
an assignment state- 
ment 


Precedes ап assign- 
ment statement with 
the BY NAME option 


Marker which precedes 
a dictionary entry 
containing the attri- 
butes which have been 
specified on an OPEN 
or CLOSE statement 


Replaces the keyword 
AUTOMATIC 

Bit string format 
item 

Replaces keyword 


BACKWARDS BEGIN 


Triple which termi- 
nates the BEGIN block 
triples 


Indicates the end of 
the complete prologue 
for a begin block 


Indicates the start 
of code for а BEGIN 
block with no prolo- 
gue 


Indicates the end of 
code for a begin 
block with no prolo- 
gue 


Replaces the keyword 
BIT 
Marker preceding a 


BIT string constant 


Replaces 
BINARY 


the keyword 


Indicates the start 
of the prologue for a 
BEGIN block 


Indicates the end of 
the prologue for a 
BEGIN block 


Replaces keyword BUF- 
FERED 


BUILTIN 


BUY 


BUY 
ASSIGNMENT 


BUYB 


T, PS 


BUY CHAMELEON T 


BUYS 


BY 


ВУ" 


ВУ МАМЕ 


С! 


CALL 


CALL‘ 


T,PS 


R,T 


R,T 


Replaces 
BUILTIN 


the keyword 


Code byte or triple 
which indicates that 
a temporary variable 
is required 


Triple which indi- 
cates assignment to a 


temporary variable, 
and which implies 
that the workspace 
for the temporary 
variable must be 


obtained before the 
assignment 


Triple or code byte 
which indicates that 
a scalar temporary is 
required for an 
aggregate argument to 
a generic scalar 
built in function 


Marker which indi- 
cates that workspace 
is required for a 
temporary variable of 
chameleon data type 
i.e. the data type 
is taken from the 
expression assigned 
to the variable 


Code byte or triple 
which indicates that 
a temporary variable 
is required, and that 
initialization code 
exists between this 


triple and the BUY 
triple 

Replaces the keyword 
BY 

Triple which indi- 


cates the end of a BY 
expression 


Replaces the 
BY NAME 


keyword 


Complex decimal for- 
mat item 


Triple which indi- 
cates the end of a С 
format item 


CALL statement marker 


Triple internal to 
phase IA which marks 
the end of a CALL 
statement 


CHAR R 
ATTRIBUTE 


CHAR CONSTANT R 


CHECK R 
cL R,T,PS 
CLOSE R,T 

CN R,T,PS 
COL R,T 
COMPLEX R 
COMPILER T 
ASSIGN 

COMPILER T 
FUNCTION 

COMPILER T 
FUNCTION' 

COMPILER T 


FUNCTION CALL 


COMPILER T 
FUNCTION CALL' 


COMPILER T 
FUNCTION COMMA 


COMPILER T 
PSEUDO-VARIABLE' 


COMPILER T 
PSEUDO-VARIABLE 


Replaces the keyword 
CHARACTER 


Marker preceding a 
character string con- 
stant 


Replaces 
CHECK 


the keyword 


Compiler label marker 


Replaces the keyword 
CLOSE 

Compiler statement 
number. Can precede 
compiler inserted 
statements 

Replaces the keyword 
COLUMN 


Replaces the keyword 
COMPLEX 


Code byte or triple 
indicating assignment 


code byte or triple 
used to indicate the 
Start of а compiler 
function call argu- 
ment list 


Triple indicating the 
END OF A COMPILER 
function argument 
list 


Code byte or triple 
used to indicate the 
Start of a compiler 
function call argu- 
ment list 


Triple indicating the 
end of a compiler 
function call argu- 
ment list 


Triple used to indi- 
cate the argument of 
compiler function, or 
Pseudo-Variable 


Triple indicating the 
end of a compiler 
pseudo-variable 
argument list 


Code byte or triple 
used to indicate the 
Start of a compiler 
pseudo-variable 
argument list 


CONDITION 


CONTROLLED 


CONTROL 
VARIABLE 


CONVERSION 


COPY 


CONTROL 
VARIABLE' 


DATA 


DATA' 


DECIMAL 


DECLARE 


DEFINED 


DEFINED 
SUBSCRIPT 


DELAY 


DELETE 


DICTIONARY 


REFERENCE 


DIRECT 


DISPLAY 


DO 


DO EQUALS 
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R,T 


R,T 


R,T 


Replaces 
CONDITION 


the keyword 


Replaces the 
CONTROLLED 


keyword 


Marker which indi- 
cates the control 
variable of a DO loop 


Replaces the keyword 
CONVERSION 


Replaces the keyword 
COPY 


Triple which indi- 


cates the end of a 
control Variable 
expression 

Replaces the keyword 
DATA 


Triple indicating the 
end of a data direct- 
ed I/O list 


Replaces the keyword 
DECIMAL 
Replaces the keyword 
DECLARE 


Replaces the keyword 
DEFINED 


Marker which precedes 
the parenthesized 
iSUB subscript list 
of a defined array 


Replaces the keyword 
DELAY 

Replaces the keyword 
DELETE 

Marker indicating 
that the following 
two bytes contain a 
symbolic dictionary 
reference 

Replaces the keyword 
DIRECT 

Replaces the keyword 
DISPLAY 

Replaces the keyword 
DO, in a non- 


iterative DO group 


Marker which replaces 
the PL/I'-' іп the 
iterative DO 
statement (DO I= ) 
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DROB PS 
DROP T 
DROP PS 
DRPL PS 
E R,T 
EDIT R,T 
EDIT' T 
EIO T 
ELSE R,T 
END R,T 
END BLOCK R,T, 
END DO В.Т 
ENDFILE R 
END ITDO R,T 


END LIST MARK R 
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Indicates to the reg- 
ister allocation 
phases that а base 
register used for 
addressing a con- 
trolled variable 
should be dropped 


Triple used in optim- 


ization indicating 
the drop of an index 
register 


Indicates that a sym- 
bolic or assigned 
register in the oper- 
and field of the 
instruction is no 
longer required 


Indicates the end of 
the use of a list of 
symbolic registers 


which have appeared 
in an USSL item 


Floating decimal for- 
mat item 


Replaces 
EDIT 


the keyword 


Triple indicating the 
end of an edit 
directed I/O list 


Code byte or triple 
which indicates the 
end of an I/O state- 
ment 


Replaces the 
ELSE 


keyword 


Replaces the END key- 
word at the end оға 
BEGIN or PROCEDURE 
block 


Indicates the end of 
a text block 


Replaces the END key- 
word at the end of a 
non-iterative DO 
group 


Replaces 
ENDFILE 


the keyword 


Replaces the END key- 
word at the end of an 
iterative DO loop 


Marker used by phases 
GK and GP to indicate 
the end of a function 
argument list 


END PROG 


END PROGRAM2 


ENTRY 


EPRM 


EPRM' 


EQU 


ERROR 


ERROR 


ERROR 


EVENT 


EXCLUSIVE 


EXIT 


EXTERNAL 


Е! 


Ғ СОММА 


Ry T, PS 


T,PS 


PS 


PS 


PS 


PS 


R, T 


RT 


R,T 


Marks the end of pro- 
gram 


Triple which marks 
the end of the second 
file text i.e. pro- 
logue initialization 
text, which is placed 
after the source pro- 
gram text 


Replaces the keyword 
ENTRY 

Indicates the start 
of an external 
library calling 
sequence. (Appendix 
D10) 

Indicates the end of 


an external library 
calling sequence 


Indicates that the 
two byte operand 
field contains a 
label. The label is 
considered to be 
attached to the fol- 


lowing pseudo-code 
item 
Replaces the keyword 
ERROR 


Code byte or triple 
which marks the posi- 
tion of an erroneous 
source statement 
which has been delet- 
ed 


Indicates the 
sence of a 
program error 


pre- 
source 


Replaces the keyword 
EVENT 

Replaces keyword 
EXCLUSIVE 

Replaces the keyword 
EXIT 


Replaces the 
EXTERNAL 


keyword 


Fixed decimal format 
item 


Triple which indi- 
cates the end of an F 
format item 


Triple used to indi- 
cate the arguments of 


FILE: 


FILE' 


FINISH 


FIXED 


FIX BINARY 
IMAGINARY 


FIX BINARY 
REAL 


FIX DECIMAL 
IMAGINARY 


FIX DECIMAL 
REAL 


FIXED 
OVERFLOW 


FLOAT 


FLOAT BINARY 
IMAGINARY 


FLOAT BINARY 
REAL 


FLOAT DECIMAL 
IMAGINARY 


FLOAT DECIMAL 
REAL 


FORMAT 


ҒОКМАТ" 


FORMAT LIST 


FORMAT LIST* 


FREE 


R,T 


R,T 


R,T,PS 


a function or pseudo 
variable 


Replaces the 
FILE 


keyword 
Triple indicating the 
end of a file list 


Replaces keyword FIN- 
ISH 


Replaces 
FIXED 


the keyword 


Marker which precedes 
a fixed binary  imag- 
inary constant 


Marker which precedes 
a fixed binary real 
constant 


Marker which precedes 
a fixed decimal imag- 
inary constant 


Marker which precedes 
a fixed decimal real 
constant. 


Replaces keywords 
FIXED OVERFLOW 


Replaces 
FLOAT 


the keyword 


Marker which precedes 
a float binary  imag- 
inary constant 


Marker which precedes 
a float binary real 
constant 


Marker which precedes 
a float decimal imag- 
inary constant 


Marker which precedes 
a float decimal real 
constant 


Replaces 
FORMAT 


the keyword 


Triple which marks 
the end of a remote 
format statement 
Precedes a format 
list 


Triple indicating the 
end of a format list 


Replaces 
FREE 


the keyword 


FROM 


FUNCTION 


FUNCTION 


GENERIC 


GET 


GOOB 


GOTO 


IDENT 


IF 


IF‘ 


IGNORE 


IGNORE 


INITIAL 


INITIAL LABEL 


INPUT 


INTESER 


INTERNAL 
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В.Т 


R,T 


В, T 


PS 


Replaces the keyword 
FROM 
Code byte or triple.. 


indicating the 
of а function argu- 
ment list 


Marker which precedes 


the parenthesized 
argument list (if 
present) of an entry 
name in а function 
reference or CALL 
statement 

Replaces the keyword 
GENERIC 

Replaces the keyword 
GET 

GOTO out of block 


statement marker 


GOTO in block 
ment marker 


state- 


Replaces the keyword 
IDENT 

Replaces the keyword 
IF 

Triple which termi- 
nates an IF expres- 
sion 

Replaces the keyword 
IGNORE 

Pseudo-code item 
which indicates that 
the number of bytes 
appearing in the 


length count must be 
ignored 


Replaces 
INITIAL 


the keyword 


Marker which precedes 
elements of arrays of 


labelvariables which 
are initialized by 
being attached to 
statements 

Replaces keyword 
INPUT 


Marker which precedes 
an internal binary 
integer constant 


Replaces the 
INTERNAL 


keyword 
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start : 


INTO 


IPRM 


ITDO 


ITDO' 


JMP 


KEY 


KEYED 


KEYFROM 


KEYTO 


LABEL 


LEFT 


LIKE 


LINE 


LINESIZE 


LIST 


LIST' 


LIST MARK 


LITERAL 
CONSTANT 
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PS 


R,T,PS 


T,PS 


R,T 


R,T 


Replaces the keyword 
INTO 


Indicates the end of 
an internal library 
calling sequence 


Replaces the keyword 
DO in an iterative DO 
loop 


Triple which termi- 
nates an iterative DO 
expression 


Triple indicate the 
presence of  pseudo- 
code. The number of 
bytes of pseudo-code 
is specified in the 
first operand 


Replaces the keyword 
KEY 


Replaces 
KEYED 


keyword 


Replaces the keyword 
KEYFROM 


Replaces the keyword 
KEYTO 


Replaces the keyword 
LABEL 


Triple indicating a 
temporary result for 
a pseudo-variable 


Replaces the keyword 
LIKE 


Replaces the keyword 
LINE 


Replaces the keyword 
LINESIZE 


Replaces the keyword 
LIST 


Triple indicating the 
end of a list 
directed I/O list 


Marker used by Phases 
GK and GP to indicate 
the start of function 
argument list 


Indicates that the 
following two bytes 
contain a fixed 
binary constant 


LOCATE 


MAIN 
MULTIPLE 
ASSIGN 


NAME 


NDX 


NEW PAGE 


NOCHECK 


NO SNAP 


NOSNAP' 


NULL 


OPEN 


OFS 


ON 


OPTIONS 


ON RECORD 


OSM1 


OSM2 


OSM3 


OUTPUT 


R,T 


R,T 


R,T 


R, T 


R,T 


R,T 


PS 


PS 


PS 


Replaces the keyword 
LOCATE 


Replaces keyword MAIN 


Marker indicating 
multiple assignment 
(Replaces PL/I',"') 


Replaces the keyword 
NAME іп the context 
of ON NAME 


Triple indicating 
indexing during 
optimization of DO 
loops 


Replaces the keyword 
NEWPAGE 


Replaces the keyword 
NOCHECK 


Replaces the keyword 
NOSNAP 


Triple which indi- 
cates the end of a 
NOSNAP list 


Null statement marker 


Replaces the keyword 
OPEN 


Triple indicating 
offset used іп optim- 
ization of DO loops 


Replaces the keyword 
ON 


Replaces the keyword 
OPTIONS 


Replaces the keyword 
RECORD in the context 
ON RECORD 


Indicates that the 
two byte Operand 
field contains an 


index register 


Indicates that the 
two byte operand 
field contains a let- 
eral offset 


Indicates the pre- 
sence of а literal 
offset and an index 
register 


Replaces keyword OUT- 
PUT 


OVERFLOW 


p* 


PAGE 


PAGESIZE 


PCBS 


PFMT 


PICTURE 


PINS 


PLBS 


PLBS' 


PRECISION1 


PRECISION2 


PRINT 


PRIORITY 


PSEUDO- 
VARIABLE 


PSEUDO- 
VARIABLE 


PSEUDO- 


AR,T 


R,T 


PS 


PS 


PS 


PS 


PS 


Replaces 
OVERFLOW 


keyword 


Picture format item 
Triple which indi- 
cates the end of a P 
format item 


Picture format item 


Replaces the keyword 
PAGESIZE 
Indicates the end of 


the complete prologue 
for a procedure block 


PICTURE format 


Replaces the keyword 
PICTURE 
Indicates the prolo- 


gue insertion point 


Indicates the start 
of the prologue for a 
procedure block which 
is common to all 
entry points 


Indicates the end of 
the prologue of a 
procedure block which 
is common to all 
entry points 


Indicates a precision 
which has been  writ- 
ten in the source 
program as "(10)", 
which пау be either 
fixed or float 


Indicates a precision 
which has been writ- 
ten in the source 
program as "(5,2)" 
which implies fixed 


Replaces keyword 
PRINT 
Replaces the keyword 


PRIORITY 


Marker which precedes 
the parenthesized 
argument list to a 
pseudo-variable 


Code byte or triple 
indicating the start 
of a pseudo-variable 
argument list 


Triple indicating the 


VARIABLE” 


PSLD 


PROC 


PROC" 


PUT 


READ 


REAL 


RECORD 


RECURSIVE 


REENTRANT 


REPLY 


RETURN 


REVERT 


REWRITE 


RPL 


RPL' 


RWA 


PS 


R,T PS 


T. PS 


R,T 


R, T 


R,T 


R,T 


R T 


PS 


end of a pseudo- 
variable argument 
list 

Indicates a  pseudo- 


code instruction for 
use by the final 
assembly listing 
phase 

Replaces the keyword 
PROCEDURE 

Triple which termi- 


nates the procedure 
block triples 


Replaces the keyword 
PUT 
Remote format state- 


ment marker 


Replaces the keyword 
READ 


Replaces the keyword 
REAL 

Replaces the keyword 
RECORD 

Replaces the keyword 
RECURSIVE 


Replaces the keyword 
REENTRANT 


Replaces the keyword 
REPLY 
Replaces statement 
marker 
Replaces the keyword 
REVERT 


Replaces the keyword 
REWRITE 


Code byte or triple 
indicating the start 
of a format list 
replication factor 
expression 


Triple indicating the 
end of a format list 


replication factor 
expression 
Indication of an 


addressing vector for 
use by the register 
allocator when the 
number of symbolic 
registers in use 
exceeds the amount of 
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SECONDARY R 


SECOND LEVEL R 
MARKER 


SELL T,PS 
SET R,T 
SETS R 
SEQUENTIAL R 
SIGNAL R,T 
SIZE R 

SKIP R,T 

SL R,T,PS 
SN R,T,PS 
SN2 R,T,PS 
SN3 PS 
SNAP' T 
STATIC R 
STERLING R 
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work space which has 
been allocated 


Replaces keyword SEC- 
ONDARY 


A code byte which 
immediately precedes 
all code bytes 
appearing in the sec- 
ond level table 


Code byte or triple 
which indicates that 
a temporary variable 
is no longer required 


Replaces the keyword 
SET 

Replaces the keyword 
SETS 

Replaces the keyword 
SEQUENTIAL 

Replaces the keyword 
SIGNAL 

Replaces the keyword 
SIZE 

Replaces the keyword 
SKIP 


Statement label mark- 
er. Precedes all 
labelled statements 


Statement number 
Marker. Precedes all 
unlabelled statements 


Marker which precedes 
a second file state- 


ment (See Appendix 
D.8) 

Indicates the start 
of a second file 


Statement which is 
concerned with ini- 
tializing array, or 
structure, or string 
dope vectors. Simi- 
lar to SN2 (Appendix 
D.8) except that 
there is no associat- 
ed entry 


indi- 
of a 


Triple which 
cates the end 
snap list 


Replaces the 
STATIC 


keyword 


: Marker which precedes 


DECIMAL REAL 


STOP 


STREAM 


STRING 


STRING’ 


SUB 


SUBSCRIPT 


SUBSCRIPT’ 


SUBSCRIPT- 
RANGE 
SYSTEM 


SYSTENM' 


TASK 


THEN 


TITLE 


TMPD 


TO 


TO' 


TRANSMIT 


UNBUFFERED 


R, T 


a sterling decimal 
constant 

Replaces the keyword 
STOP 

Replaces keyword 
STREAM 

Replaces the keyword 
STRING 


Triple indicating the 
end of a string list 
used with list 
directed I/0 


Replaces the keyword 
SUB used in iSUB 
DEFINING marker 


preceding a BIT 


Marker which precedes 
the parenthesized 
subscript list of an 
array 


Triple indicating the 


end of а subscript 
list 

Replaces keyword SUB- 
SCRIPTRANGE 

Replaces the keyword 
SYSTEM 

Triple which indi- 


cates the end of a 


system list 


Replaces the keyword 
TASK 

Replaces the keyword 
THEN 

Replaces the keyword 
TITLE 

Triple indicating a 
temporary expression 
result 

Marker replacing ТО 
in the iterative DO 
statement 

Triple which indi- 


cates the end of a TO 
expression 


Replaces 
TRANSMIT 


the keyword 


Replaces the 
UNBUFFERED 


keyword 


UNDEFINEDFILE R 


UNDERF LOW 


UNLOCK 


UPDATE 


USES 


USNG 


USSL 


R 


R,T 


PS 


PS 


Replaces the keyword 
UNDEFINEDFILE 


Replaces 
UNDERFLOW 


keyword 
Replaces the keyword 
UNLOCK 


Replaces 
UPDATE 


keyword 


Replaces the keyword 
USES 


Indicates the pre- 
sence of an assigned 
register 


Indicates a list of 
symbolic registers 
which need not be 


VARYING 


WHILE 


WHILE * 


WRITE 


X 


ZERODIVIDE 


R,T 


R,T 


R,T 


saved on branch and 
branch and link 
instructions 


Replaces the keyword 
VARYING 


Replaces the keyword 
WHILE 


Triple which indi- 
cates the end ofa 
WHILE expression 


Replaces the keyword 
WRITE 


Spacing format item 


Replaces the keyword 
ZERODIVIDE 
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APPENDIX E: STORAGE REQUIREMENTS 


The (F) Compiler requires main 


for the following purposes : 


storage 


Compiler processing phases 

Print buffers 

Compiler control routines 

Dictionary area 

Text area 

Input/output buffers 

Input/Output routines (BSAM) 
The main storage required by each phase 

of the compiler need be contiguous only for 


each control section. 


During the read-in phases a minimum of 


Storage available to the compiler. The 
SIZE option, interpreted at invocation 
time, provides the value used to determine 
the block size. A table contained in Phase 
AB is searched, using the SIZE option as an 
argument. When the correct entry is found, 
the block size is extracted. 


The first table shows the relationship 
between the compiler requirements and the 
text and dictionary block sizes. Тһе sec- 
ond table details the storage allocation in 
each environment. 


Compiler -Bequirements_and Dictionary/Text 
Block Relationship 


pc v те 1 
two dictionary blocks and two text blocks {Environment | Dictionary/Text| Compiler | 
are available in storage simultaneously. | | Block Size |Requirements | 

}----------- %--------------- %------------- 
During the rest of the compilation four | A | 1K | 44K - 53K | 
dictionary blocks and four text blocks are | B | 2K | 53K - 70K | 
available in storage simultaneously. | C | 4K | 70K - 102K | 
| D | 8K | 102K - 168K | 
The dictionary and text block size is | Е | 16K | Over 168K | 
chosen according to the amount of main .----------- 1--------------- 1------------- 3 
Е erue Е qc uU ОЗ жендет ee qon m аи 1 
| | DURING READ-IN PHASE | AFTER READ-IN PHASE | 
E: ans ОООО ШЫ pet nee ee tars ЕО расе 1 
| Storage Allocation | ENVIRONMENT | ENVIRONMENT | 
| | | | | | | | | | | | 
| | A [в |с | | E | A | B | с | D | E | 
}----~----------------- +----- {----- i----- ł----- ł------ ł----- ł----- ł----- ł------ ł------ 1 
| OS Dynamic Storage | | | | | | | | | | | 
| | | | | | | | | | | | 
| ТІОТ | 228| 228| 228| 228) 228| 228| 228| 228] 228 | 228 | 
| ЭРТЕ | 32 | 32 32 | 32| 32] 32| 32| 32| 32] 32| 
| LOAD | 240) 240| 2u0| 240] 240} 240| 240| 240] 240 | 240| 
| | | | | | | | | | | | 
| OS Temporary Storage | | | | | | | | | | | 
| End of Volume | 976] 976| 976| 976| 976| 976| 976| 976] 976 | 976 | 
| Data Management | 4950| 4950] 4950| 4950| 4950] 4950] 4950] 4950] 4950| 4950] 
| Compiler Control |11900|11900|11900|11900| 11900|11900|11900|11900| 11900] 11900) 
| Phase Area |16384 |16384 [16384 |16384| 16384|12288|12288|12288| 12288| 12288 | 
| Text Area | 2048| 4096] 8192|16384| 32768] 4096| 8192|16384| 32768] 65536| 
| Dictionary Area | 2048| 4096] 8192|16384| 32768] 4096| 8192|16384| 32768] 65536) 
| Scratch Storage | 4096| 4096| 4096| 4096| 4096| 4096| 4096| 9096] 4096] 4096| 
| I/O Buffers | =. с, usi : Ee E d n 2. snes 
}---------------------- Я О рано одие PODE DDOE DEPI рр 
| TOTALS [4526 [48022 [56214 | 72598] 105366 | 43926 [52118] 68502|101270| 166806| 
a ne ықы ie er eer ne Жз вед ышы сыды сйс Kamera 
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Initially, four text and four dictionary 
blocks are allocated to the compiler (two 
each are allocated when only 44K bytes of 
storage are available to the compiler. 
This is then expanded to four of each at 
the end of the read-in phase). If the text 
and/or dictionary expands to fill these 


blocks, more main storage is allocated as 
blocks. This process continues until the 
Spill point is reached (i.e., until all the 
main storage available to the compiler has 
been used). If still more main storage is 
required, the spill file  (SYSUT1) is 
opened, and blocks are written out. 
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The communications region is an area 
specified by the control routines, and used 
to communicate necessary information 
between the various phases of the compiler. 
The communications region is resident in 
the first dictionary block throughout the 
compilation. 


Entry to the various compiler control 
routines is via a transfer vector. Details 
of the transfer vector and the organization 
of the communications region appear in this 
Appendix. 


Note: The use of the communications region 
during compile-time processing is 
described in Appendix J. 


TRANSFER VECTORS 


Hex. 


Offset Name Description 


8 ZUPL Print a line 

С ZURD Read a card 

10 ZUGC Get scratch storage 

14 ZUTXTC Get text block 

18 ZURC Release scratch storage 

1c 

20 ZABORT Dump and go to error 
message routines 

24 ZLOADW Load and return to cal- 
ler 

28 ZDICAB Make dictionary entry. 
Absolute address 
returned 

2С ZDICRF Make dictionary entry. 
Dictionary reference 
returned 

30 ZUERR Make error message entry 
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34 


38 


3c 


40 


uu 


48 


4c 


50 


52 


58 
5C 


60 


64 


68 


6C 
70 
74 
78 


80 


ZDRFAB 


ZLOADX 


REQEST 


RELESE 


RLSCTL 


ZTXTRF 


ZTXTAB 


ZCHAIN 
ZALTER 


ZDABRF 


ZNALRF 


ZNALDB 


ZEND 
ZULF 
ZUSP 
ZUBW 


RLSCILX 


Gonvert dictionary ref- 
erence to absolute 
address 


Load with overlay and 
return to caller 


Give a list of phase 
names required or not 
wanted for this compila- 
tion 

Release all named phases 


Release all named phases 
and pass to next phase 


Convert absolute address 
to text reference 


Convert text reference 
to absolute address 


Find next block in chain 
Change text block status 


Convert absolute address 
to dictionary reference 


Not aligned dictionary 
entry. Reference 
returned 

Not aligned dictionary 
entry. Absolute address 
returned 

Terminate job 

Write on load file 

Write on punch 

Write on backing store 
Release all named phases 
and hand control to the 


next phase, after having 
loaded it with overlay 


COMMUNICATIONS REGION 


These tables give the following information for each location of the communi- 
cations region: name of location; offset  (i.e., relative address); use (i.e., 
Stages of compilation during which the location is in use); and a description of 
the contents. Certain locations are used in one capacity during part of the 
compilation, and then re-used in a different capacity during another part of the 
compilation. In these cases, one location will have two table entries: details of 
alternative usage appear іп the columns headed Матег, Usea, etc. 


pem quee cc ETT qoem X ut cen E TI M Mmm 1 
| Name loffset (Dec.) | Use | Description | 
}~-----~-}-------------- І---------------- І--------------------------------------- 1 
| SAVEO | 0 | ALL PHASES | Register save area | 
| SAVE1 |SAVEO+4 | ALL PHASES | Register save area | 
| SAVE2 |SAVEO*8 ETC. | ALL PHASES | Register save area | 
| SAVE15 |SAVE0+60 | ALL PHASES | Register save area | 
| 2TV | 64 | ALL PHASES | Control phase base | 
| ZTRAN1 | 68 | ALL PHASES | External to internal translate table | 
| ZTRAN2 |ZTRAN1*4 | ALL PHASES | Internal to external translate table | 
| ZNXTD | 76 | ALL PHASES | Next available dictionary location | 
| ZERRD | 80 | ALL PHASES | | 
| ZERRS |2ЕВКО+4 | ALL PHASES | First locations of error chains | 
| ZERRW  |ZERRD*8 | ALL PHASES | | 
| ZERRC |ZERRD+12 | ALL PHASES | | 
| 20МХТ |2ЕККО+16 | ALL РНА5Е5 | | 
| ZSNXT | ZDNXT+4 | ALL PHASES | Current ends of error chains | 
| ZWNXT  |ZDNXT«8 | ALL PHASES | | 
| ZCNXT | ZDNXT+12 | ALL PHASES | | 
| ZMYNAM | 112 | ALL PHASES | Name of last phase entered | 
| | 116 | Not used | | 
| ZPROCH | 120 | ALL PHASES | Chain of created procedures | 
| 25ТАТ | 124 | ALL PHASES | Current statement number | 
| PAR1 | 128 [ ALL PHASES | Parameter word 1 | 
| PAR2 jPAR1+4 ETC. | ALL PHASES | Parameter word 2 | 
| PAR8 | PAR1*28 | ALL PHASES | Parameter word 8 | 
| FSTDIC | 160 | ALL PHASES | Address of first dictionary block | 
| ZDIC2 |FSTDIC+4 ETC. | ALL PHASES | Dictionary block 2 | 
| ZDIC16 |FSTDIC+60 | ALL PHASES | Dictionary block 16 | 
| ERCODE | 224 | ALL PHASES | Error message codes | 
| MCSIZE | 228 | ALL PHASES | M/CSIZE this run | 
| CCCODE | 232 | ALL PHASES | Control card requests | 
| НОВ | 236 | ALL PHASES | Address of phase directory | 
| TLR | 240 | ALL PHASES | Timer last read | 
| TRT | 244 | ALL PHASES | Total run time | 
| ARINT | 248 | ALL PHASES | Arithmetic interrupt | 
| BR2 | 252 | ALL PHASES | Second base for control phase | 
| STARTX | 256 | ALL PHASES | Start of text | 
| DICTSZ | 260 | ALL PHASES | Dictionary block size | 
| TXTSZ | 264 | ALL PHASES | Space available in text block | 
| RDSIZE | 268 | ALL PHASES | SIZE of read area | 
| INCOD | 272 | ALL PHASES | Interrupt code | 
| ARMASK | 273 | ALL PHASES | Arithmetic error mask | 
| LOCK | 274 | ALL PHASES | Dictionary lock slot | 
| ZNXTLC | 276 | ALL PHASES | End of current text | 
| ZSOR | 280 | ALL PHASES | Input record source | 
| ZMAG | 282 | ALL PHASES | Input record margin | 
| 2сомм | 304 | ALL PHASES | | 
plc De setae — d ананы лс сыз се Е stn ke шыла ындыны ыны 1 
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ora тете з зале аас ааа ааа ee ттге === > Coto See ғады 1 
| | Бес. | Use | | | Оѕег | 
| Name | Offset |---------- т---------- 1 Description |Nameg р------ т------ 1 Description, | 
| | | Start | End | | |Start | End | | 
------ 1--------4----------4----------4--------------4------4------4------і--------------1 
| 2СА1ІС | ZCOMM+ O|Read іп | BCD to |Start of CALL | | | | | 
|Dict. Ref.|chain | | | | | 
| ZLABTB| + 4|Read in | Initial {Start of label| | | | | 
| | chain | | | | | 
| ZALLCH| *12|Read in [ALLOCATE *|Start of | | | | | 
| | | [Attribute |ALLOCATE chain| | | | | 
| ZDEFFL| 1 +16|Read in | Defined |БеҒіпе flag | | | | | 
| ZAWAFL| | |Read in |Attribute |ALLOCATE + | | | | | 
| || | | | Attribute | | | | | 
| ZINTFL] | |Веаа in |Бісе. Ref.|INITIAL flag | | | | | 
12рІМЕІ | >1 byte|Read іп | Initial |Dimension flag| | | | | 
| 2РІСЕІ | | |Read in |Pict Proc |PICTURE flag | | | | | 
|ZONFL | | | Read in | ON |ON flag | | | | | 
| ZLIKFL] | |Read in | LIKE | LIKE flag | | | | | 
| ZDECFL] J |Read in  |INITIAL |DECLARE flag | | | | | 
| ZFLAG2 | +17]Read іп |Dictionary|Flag byte | | | | | 
| ZFLAG3 | +18|Read in |Dictionary|Flag byte | | | | | 
| 2МТЕСТ | *19|Read in | Translator|Max. nested | | | | | 
| | | |IF count | | | | | 
|2ІЕСТ | +20|Read іп [Translator|IF count | ZSYSOT| Рѕецдо | Pseudo|Dict. Ref. | 
| | | | |code |code |SYSOUT | 
|2DOCT | *22|Read in | Translator|Max. nested | | | | | 
| | | |00 count | | | | | 
|ZBEGT | +23|Read іп | Translator|Max. nested | | | | | 
| | | | BEGIN | | | | | 
| ZPROCT | *2U|Read in |Translator|Max. nested | | | | | 
| | | PROCEDURE | | | | | 
| 2НАЅН | +28|Dictionary|Dictionary|Start of hash |ZINCL |PC. | End |INCLUDE card | 
| | | | | table | | | pointer | 
| | +32|Not used in first haif | ZEQTA3|Final |Assy. |Assigned | 
| 1 | | | | joffset table | 
| ZFATTB| *36|Dictionary|Declare |Start of fact-]ZLCONS|Strge |Alloc |Last constant | 
| | | | pass 2 |огей attribute|ZEOCS | | Jin STATIC. | 
| | | {End of STATIC | 
| ZCDIMC | +40 |Dictionary|Pre- {Start constant ]|ZSMREG|Trans-|Pseudo|Current sym- | 
| | | | translator|dimension | |llator |code |bolic register] 
| Z2FILE| +44|Dictionary|End |Start of | | | | 
1 | | second file | | | | 
| ZDLFST | +48 |Dictionary | Storage | Defined | ZFSTEX|Strge |End |First external| 
| lallocator [storage area | jalloc | jitem | 
| ZDCBLD | +52 |Dictionary]|Dictionary|Dictionary | ZPRSIZ| Final |Авву. |Size of com- | 
| | build area 1 | [piled program | 
| ZMPSTK]| +56|Dictionary|Translator|Program map | ZSICSZ| Final |Assy. |STATIC | 
| | | | stack | | | | INTERNAL size | 
|ZUPIC | +60|Dictionary| Picture | Start of |ZSTALC|Final |Assy. |Storage loc- | 
| | |processor |picture chain | | | lation counter | 
|ZPROC1] +64|Dictionary]| Епа [Start of entry| | | | | 
| | | | [суре 1 сһаїп | | | | | 
| ZSTACH| *68|Dictionary|End [Start of STAT-| | | | | 
| {IC chain (6) | | | | | 
| ZVDIMC | +74|Dictionary|Translator|Start of vari-| | | | | 
| | | | Jable dimension| | | | | 
| | | chain | | | | | 
| 2coNCH| +78|Dictionary|ALLOCATE |Start of соп- | | | | | 
| | | {stants chain | | | | | 
| ZDEFCH] +80 | Dictionary| Dictionary|Chain of | ZCITEM| Pre | End [Chain of CON- | 
| | | |defined items | | trans. | | TROLLED items | 
| ZLIKCH| *82|Dictionary|Dictionary|Chain of LIKE |2ЕОМАХ| Pseudo|End |Мах. label | 
| | | |items | |code | | number | 
| ZPOLCH] +84|Dictionary|Dictionary|Chain of POOL | | | | | 
| | | | | items | | | | | 
becca теор арнын e —— ЮРИ dace сылы ылы Е шаш eee rey Е Шылышы EER ape MÁ— € 1 
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т оа Via TEN UC ола Ate oe oa ere yet т ттлген 1 
| | Dec. ] Use | | | Оѕег | 
| Name | Offset р----------т---------- 1 Description ]Namea р------ т----- 4 Descriptions, | 
| | | Start | End | | |Start | End | 
И 4-------------- ł------ ----- -----І-------------- 1 
| ZDCOM1 | ZCOMM+ 86 | Dictionary| Dictionary| Latest | | | | | 

| MEM AN |dict. ref. | | | | | 
| ZDCOM2 | +90 |Dictionary|Dictionary|Flags for dic-| | | | | 
| | | | [tionary build | | | | | 
| | | | | interface | | | | | 
| | | | | (8 bytes) | | | | | 
sisis Blend | MC алы Bo ee = Bees es НИЕ doce doc duello uud. J 
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APPENDIX G: SYSTEM GENERATION 


For full details of the system genera- 


tion process, see ІВМ System/360 Operating 
System: System Generation, Form C28-6554. 


During the system generation process, a 
control section named IEMAF is assembled 
(see Figure 12) containing a table consist- 
ing of four fixed-point values aligned on 
full-word boundaries, immediately followed 
by a bit string field that is twelve bytes 
in length. The four fixed-point values are 
related to the compiler options LINECNT, 
SIZE, SORMGIN (start), and SORMGIN (end) 
respectively. The first 44 bits in the 
string are used to specify the default 
status of the options. Bits 47 through 81 
in the string are used to specify if an 
option keyword is to be deleted or not. A 
"1" in the bit string means "уез" and a "0" 
means "по". The remaining 17 bits іп the 
string are Spare bits not currently in use. 
Figure 13 shows the bit identification 
table associated with the control section. 


a eee eee 
| DC Е'60' 

| DC Е"45056" 

| DC F'2' 

| ОС F'72' 

| 22222222722 
| DC B'|0 0000000 00000000! SWITCHES 

| pe в'{оооооооо 000000000 ОБЕ — 
| ос B'[0 0 0000 00 500000004 звиттсназ 

| зада ME EE Ае у 
| = sjooo00000 0000 оо. оваа 

L 


Figure 12. The IEMAF Control Section 
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dta e es AD — a— P — M «рә» жәй 


(eee te 
| Bit| Parameter 
}---+------------ 
| 1 | ATR 

| 2 | NOATR 

| 3 | BCD 

| 4 | EBCDIC 

| 5 | CHAR60 

| 6 | CHARA48 

| 7 | DECK 

| 8 | NODECK 

| 9 | EXTREF 
|10 | NOEXTREF 
|11 | FLAGW 
|12 | FLAGE 
|13 | FLAGS 
{1% | LIST 

|15 | NOLIST 
|16 | LOAD 

{17 | NOLOAD 
|18 | XREF 

{19 | NOXREF 
|20 | SOURCE 
|21 | NOSOURCE 
|22 | SOURCE2 
|23 | NOSOURCE2 
[24 | OPT=0 
|25 | ОРТЕТ 
|26 | ОРТ-2 
|27 | ОРТ=З 
|28 | OPT=4 
|29 | ОРТ-5 
|30 | ОРТ-6 
|31 | OPT=7 
|32 | ОРТ-8 
|33 | OPT=9 
138 | STMT 

|35 | NOSTMT 
|36 | MACRO 
|37 | NOMACRO 
138 | ОРТ-М30 
|39 | OPT=M40 
|40 | OPT=M50 
141 | ОРТ-М65 
142 | OPI-M75 
Loi 


----------------------------------------------------------------------------------------- 


| 
| 
Г 
! 
l 
| 
і 
| 
| 
| 
і 
! 
| 
| 
t 
- 
| 
і 
t 
- 
| 
} 
| 
| 
! 
| 
! 
| 
} 
1 
I 
| 
! 
! 
1 
| 
| 


Not used 
DELETE-AIR 
DELETE=NOATR 
DELETE=BCD 
DELETE=EBCDIC 
DELETE-CHAR60 
DELETE=CHARG8 
DELETE=DECK 
DELETE=NODECK 
DELETE=EXTREF 
DELETE=NOEXTREF 
DELETE=FLAGW 
DELETE=FLAGE 
DELETE=FLAGS 
DELETE=LIST 
DELETE-NOLIST 
DELETE-LOAD 
DELETE-NOLOAD 
DELETE-XREF 
DELETE-NOXREF 
DELETE-SOURCE 
DELETE-NOSOURCE 
DELETE-SOURCE2 
DELETE-NOSOURCE2 
DELETE-OPT 
DELETE=LINECNT 
DELETE=LINELNG 
DELETE=SIZE 
DELETE=SORMGIN 
DELETE=DUMP 
DELETE=STMT 
DELETE=NOSTMT 
DELETE=MACRO 
DELETE=NOMACRO 
DELETE=COMP 
DELETE=NOCOMP 
(Bits 82 
through 96 

not used) 


с — жены SD ERT SS (анны SE мынып ANY GEES ————M——————— SS SS A GS A ee SS CR «шие» ee SS TT SOS SD ақымен «ымы» 


Figure 13. Bit Identification Table 
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The mechanism of dynamic storage manage- 
ment is described in the publication IBM 
System/360 Operating System PL/I Library 
Program Logic Manual, Form 228-6591 


Part of the code required to implement 
the storage management is generated as 
prologue and epilogue code by the compiler. 
This Appendix contains annotated examples 
of prologues and epilogues for PROCEDURE, 
BEGIN, and ON blocks. 


PROLOGUES AND EPILOGUES 


Example in PL/I 


A:I: PROCEDURE(X,Y); 
DECLARE Y CONTROLLED; 


ON OVERFLOW C=0; 


B: BEGIN; 


AB: IJK: ENTRY(Y, 2) 


RETURN (EXPRESSION) 
END; 

A BC 15,6(0,15) BRANCH ROUND BCD OF ENTRY POINT 

DC ALi (1) LENGTH OF BCD 

DC C'A' BCD OF ENTRY POINT 

STM 14,11,12(13) SAVE STANDARD REGISTERS IN SAVE AREA 
ж CALLER'S DSA 

LA 10,1+6(0,15) SET UP FIRST PROLOGUE BASE 

LA 8,АР(0,10) SET RETURN REGISTER 

BC 15,12(0,10) BRANCH GET DSA 
I BC 15,6(0,15) BRANCH ROUND BCD OF ENTRY POINT 

DC AL1 (1) LENGTH OF BCD 

DC CHIS BCD OF ENTRY POINT 

STM 14,11,12(13) SAVE STANDARD REGISTERS IN SAVE AREA ОҒ 
* CALLER'S DSA 

LA 10,1+6 (0,15) SET ОР FIRST PROLOGUE BASE 

LA 8,ІР(0,10) SET RETURN REGISTER 
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LOOP 


LA 
STATIC 


AP 


* 
* 
* 


IP 
COPRAM1 


* 
COMMON 


* 


*жжж* 


4 + + 


ж 


жжжжж 


* + * + + 


ВАТЕ 
LR 
LA 
SR 


ST 
BCT 
BCR 
DC 
DC 


MVI 
BC 


MVI 
ST 
LA 
SR 
LH 
ST 
ST 
BAL 
BC 


BALR 
LA 


ST 


ONLY IN THE CASE OF 


L 


ST 
LA 
SR 
ST 


MVI 


11,STATIC(0,10) 


15,32(0,11) 

0, SIZDSA(0,10) 
14,15 

14,13 

0,7(0,0) 

15,15 

14,0(0,11) 

14, ADVEC+4 (15,13) 
15,4(0,15) 

0, LOOP (0,10) 

15,8 

A(STATIC CONTROL 
SECTION) 

F'SIZE OF DSA!’ 
SWITCH (13),X"X1' 
15, СОРВАМ1 (0,10) 


SWITCH(13),Xx'X2' 
14,0(0,1) 
15,X(0,13) 
14,4(0,1) 
0,10(0,0) 

14,0 

14,0(0,14) 

14,Y (0,13) 
14,,8(0,1) 

14, TARGET (0,13) 
10,А...А(0,11) 


8, COMMON (0,10) 


10,0 
9, ADDAREA (0, 13) 


9, ADVEC (0,13) 


SET UP STATIC DATA POINTER (ONLY IN 
EXTERNAL PROCEDURES AND ON PROLOGUES) 
LOAD GR15 WITH ENTRY POINT ОҒ IHESADA 
GRO- SIZE OF DSA 

CALL IHESADA TO GET A DSA 

POINT GR14 AT NEW DSA 

SET LOOPING VALUE -7 

CLEAR INDEXING REGISTER 

BUMP GR14 BY 4096 

STORE GR1i4 IN ADDRESSING VECTOR 

BUMP INDEX REGISTER 


BRANCH ON RETURN REGISTER 
ADDRESS OF STATIC INTERNAL CONTROL SECTION 
(ONLY COMPILED FOR EXTERNAL AND ON PROLOGUES) 


INSERT RETURN (EXPRESSION) SWITCH AND 
BRANCH TO COPY OVER PARAMETERS. 

(ONLY COMPILED IF THERE IS A RETURN(EXP) 
AND THE ENTRY LABELS HAVE DIFFERENT DATA 
ATTRIBUTES). 

INSERT RETURN(EXP) SWITCH 

PICK UP FIRST ARGUMENT ADDRESS AND 

STORE IN X IN DSA 

PICK UP SECOND ARGUMENT ADDRESS 


POINT СК1Ч AT PSEUDO-REGISTER OFFSET OF 
ARGUMENT AND PICK IT UP 

STORE OFFSET IN Y IN DSA 

PICK UP ADDRESS OF TARGET FIELD 

AND STORE IN DSA 

LOAD GR10 FROM TRANSFER VECTOR SLOT 
FOR ENTRY POINT A IN STATIC. 

BRANCH AND LINK TO COMMON PROLOGUE 
BRANCH TO THE APPARENT ENTRY POINT 
FOR A 

SET UP COMMON PROLOGUE BASE 

SET GR9 TO POINT TO ADDRESSING AREA 
AT END OF DSA 

AND STORE IN ADDRESSING VECTOR. 


THE FOLLOWING CODE APPEARS 


14,PR...A(12) 


14,92(0,13) 
14,PR...A(12) 
14,12 

14,88 (0,13) 


INITIALIZE ON SLOTS (IF 


0(13),x'8F' 


RECURSIVE PROCEDURES 


LOAD GR1i4 WITH THE CURRENT DISPLAY 
VALUE FOR A 
STORE IN DISPLAY UPDATE IN DSA 


GR14 = OFFSET OF DISPLAY PSEUDO-REGISTER 
STORE IN DISPLAY UPDATE IN DSA 


ANY) 
IDENTIFY DSA. 


COPY SKELETON DOPE VECTORS (IF ANY) FROM STATIC INTERNAL 
CONTROL SECTION TO REAL DOPE VECTORS IN DSA. (THERE IS ALWAYS A 
SKELETON FOR A REAL DOPE VECTOR), AND RELOCATE THE ADDRESSES WITH THE 
ADDRESS OF THE DSA FOR THOSE DOPE VECTORS REFERRING TO VARIABLES 

IN THE DSA. 
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* FOR EACH VDA (VARIABLE DATA AREA) REQUIRED BY THE 
PROCEDURE THE CODE BETWEEN THE LABELS VDA1 AND VDA2 IS 


* 


ж GENERATED 
VDAL SR 7,7 CLEAR STORAGE ACCUMULATOR АС1 
SR 0,0 CLEAR SECONDARY DOPE VECTOR STORAGE 
ж ACCUMULATOR AC2 
ж FOR EACH VARIABLE ІМ THE VDA, THE FOLLOWING CODE IS 
* GENERATED (BETWEEN LABELS VAR1 AND VAR2). 
VAR1 EVALUATE EXTENT EXPRESSIONS (DIMENSIONS AND STRING LENGTHS) AND 
* STORE RESULTS IN DOPE VECTOR IN DSA. 
ж ALIGN ACCUMULATOR AC1 ON CORRECT BOUNDARY FOR VARIABLE 
* BUMP ACCUMULATOR AC2 BY SIZE OF SECONDARY DOPE VECTOR (IF VARIABLE 
* IS DIMENSIONED AND VARYING). 
+ RELOCATE ADDRESS IN VARIABLES DOPE VECTOR RELATIVE TO START OF 
* VDA. 
VAR2 BUMP ACCUMULATOR AC1 BY SIZE OF STORAGE REQUIRED FOR VARIABLE 
AR 0,7 ADD AC1 AND AC2 
L 15, 36(0,11) LOAD GR15 WITH ENTRY POINT IHESADB 
BALR 14,15 GET VDA 
LA 1,8(0,1) BUMP VDA POINTER PAST FLAG AND CHAIN SLOTS 
AR 7,1 POINT GR7 AT FIRST SECONDARY DOPE VECTOR. 
L 14, DV. .VAR(0,13) FOR EACH VARIABLE IN REGION, RELOCATE 
AR 14,1 ADDRESS IN DOPE VECTOR. 
ST 14,DV..VAR(0,13) 
* FOR EACH DIMENSIONED VARYING ITEM IN REGION, INITIALIZE 
VDA2 SECONDARY DOPE VECTORS. 
LA 10, PROCBASE SET UP PROCEDURE BASE 
CODE (IF ANY) TO SET UP SOME ADDRESSING MECHANISMS IN E 
ADVANCE FOR USE IN PROCEDURE 
BCR 15,8 RETURN FROM COMMON PROLOGUE. 
CNOP 0,4 
AB BC 15,8 (0,15) BRANCH ROUND BCD OF ENTRY POINT 
DC AL1 (2) 
DC C'AB' 
STM 14,11,12(13) SAVE REGISTERS IN CALLER'S SAVE AREA 
L 10, PROBAS (0,15) SET UP FIRST PROLOGUE BASE 
LA 10,6(0,10) 
BAL 8,12(0,10) BRANCH AND LINK TO GET DSA AND TO SET 
ж UP ADDRESSING VECTOR. 
MVI  SWITCH(13),X'X3' SET UP RETURN(EXP) SWITCH IF THERE IS A 
* RETURN(EXP) AND DATA ATTRIBUTES OF 
* ENTRY LABELS DIFFERENT. 
BC 15, COPRAM2 (0,8) BRANCH TO COPY PARAMETERS 
IJK BC 15,8(0,15) BRANCH ROUND BCD OF ENTRY POINT 


DC AL1(3) 
DC C'IJK' 


L 10,PROBAS(0,15) SET UP FIRST PROLOGUE BASE 
LA 10,6(0,10) 
BAL 8,12(0,10) BRANCH TO GET DSA AND SET UP 
* ADDRESSING VECTOR. 
MVI SWITCH(13),X'xu' SET RETURN (EXP) SWITCH 
BC 15,COPRAM2(0,8) BRANCH TO COPY PARAMETERS 
PROBAS DC A(T) 
COPRAM2 L 14,0(0,1) PICK UP FIRST ARGUMENT ADDRESS 
LA 0,10(0, 0) 
SR 14,0 
LH 14,0(0,14) PICK UP PSEUDO-REGISTER OFFSET OF 
ST 14,Y(0,13) . ARGUMENT AND STORE IN DSA. 
L 14,4(0,1) PICK UP ADDRESS OF SECOND ARGUMENT 
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LOOP 


COMMON 
* 


* 


ONSTART 


LOOP 


ж 


5Т 
L 
ST 
L 


BAL 
BC 


14,2(0,13) 
14,8(0,1) 
14, TARGET(0,13) 
10,А...А(0,11) 


8, COMMON(0, 10) 
15,АЕ...АВ(0,10) 


AND STORE ІМ 2 

PICK UP ADDRESS OF TARGET FIELD 

AND STORE IN DSA 

LOAD GR10 WITH ADDRESS OF FIRST BYTE 
OF PROCEDURE 

BRANCH AND LINK TO COMMON PROLOGUE 
BRANCH TO APPARENT ENTRY POINT AB 


THIS 15 THE APPARENT ENTRY POINT ОҒ А. 


THE FOLLOWING IS AN ON BLOCK PROLOGUE WHICH IS COMPILED FOR ALL 
ON BLOCKS EXCEPT IF BLOCK SPECIFIES SYSTEM 


STM 
LR 


L 

L 

L 
BALR 
LR 
LA 
SR 
A 

ST 
LA 
BCT 
BC 
DC 
DC 
BALR 


14,11,12(13) 
10,15 


11, STATIC €0,10) 
15, 32(0,11) 

0, SIZDSA(0, 10) 
14,15 

14,13 

0,7(0,0) 

15,15 
14,0(0,11) 

14, ADVEC+4 (15,13) 
15,4(0,15) 

0, LOOP (0,10) 
15, COMMON (0, 10) 
F'SIZE OF DSA' 


SAVE REGISTERS 
SET PROLOGUE BASE 


SET UP STATIC INTERNAL DATA POINTER 
LOAD GR15 WITH ADDRESS OF IHESADA 
LOAD GRO WITH SIZE OF DSA 

CALL IHESADA TO GET A DSA 


SET UP ADDRESSING VECTOR IN 
DSA 


BRANCH TO INITIALIZE DSA 


A(STATIC INTERNAL CONTROL SECTION) 


10,0 


CODE IS GENERATED HERE FOLLOWING SAME PATTERN AS FOR 
A BEGIN PROLOGUE (SEE BELOW) COMMON SECTION. 


LA 


10, ONSTART 


EPILOGUE FOR AN ON BLOCK 


L 
BALR 


15,IHESAFA(0,11) 
14,15 


PROLOGUE FOR A BEGIN BLOCK 


LA 
BALR 
CNOP 
STM 
BALR 
L 

L 
BALR 
LR 
LA 
SR 
A 

5Т 
LA 
BCT 
BC 
DC 
LA 
ST 


14, BEND 

15,0 

0,4 
14,11,12(13) 
9,0 

15,32(0,11) 

0, SIZDSA(0, 9) 
14,15 

14,13 

0,7(0,0) 

15,15. 
14,0(0,11) 

14, ADVEC+4 (15,13) 
15,4(0,15) 

0, LOOP (0,9) 

15, COMMON (0, 9) 
F'SIZE OF DSA' 
9, ADDAREA (0,13) 
9, ADVEC (0,13) 


LOAD GR15 WITH ENTRY POINT TO EPILOGUE 
ROUTINE AND BRANCH AND LINK TO IT 


SET UP RETURN RESISTER 
SET UP ENTRY POINT ADDRESS 


SAVE REGISTERS IN CONTAINING BLOCK'S DSA 
SET UP PROLOGUE BASE 
LOAD GR15 WITH ENTRY POINT TO IHESADA 


GET À DSA 


SET UP ADDRESSING VECTOR FOR DSA 


SET GRG TO POINT TO ADDRESSING AREA 
AT END OF DSA AND STORE IN ADDRESSING 
VECTOR 


CODE IS GENERATED HERE THE SAME AS FOR A PROCEDURE PROLOGUE 


EXCEPT THAT A CODE OF X'Gr' 


IS MOVED TO THE FIRST BYTE OF THE 
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* DSA; GR10 IS NOT RESET; AND THE BCR 15,8 IS NOT GENERATED. 


* EPILOGUE OF A BEGIN BLOCK 
L 15, IHESAFA LOAD GR15 WITH ENTRY POINT OF 
BALR 14,15 EPILOGUING ROUTINE AND CALL IT 
BEND 
* RETURN (EXP) STATEMENT EXAMINES THE LOCATION 'SWITCH' IN THE DSA 
* SET BY THE PROLOGUE TO DETERMINE THE CONVERSION REQUIRED ON 
* THE EXPRESSION. IT THEN ASSIGNS THE CONVERTED EXPRESSION TO 
* THE TARGET FIELD FOR WHICH THE LOCATION ‘TARGET’, IN THE DSA, 
* POINTS TO EITHER ITS DOPE VECTOR (IN THE CASE OF A STRING) 
* OR THE STORAGE. ROUTINE IHESAFA IS THEN INVOKED. 
* END STATEMENT (WHICH IS THE SAME AS A RETURN STATEMENT) 


L 15,IHESAFA 
BALR 14,15 
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The messages produced by the PL/I (F) ІЕМ0056І Кеай Іп 
Compiler are explained in the publication IEMOO57I Read In Ес 
ІВМ  System/360 Operating System, PL/I (Е) ІЕМ00581І Read Іп e 
Programmer's Guide, Form С28-6594. The ІЕМ00591 Read Іп СР 
following table associates a message number IEMOO60I Read In CP 
with the particular phase and module in IEMOO61I Read In CP 
which the corresponding message is generat- IEMOO63I Read In CO 
ed. IEMOO6UI Read In c 
IEMOOG661 Read In CG 
Message ІЕМ0067І Read Іп CL 
Number Logical Phase Module IEMOO68I Read In 
ІЕМ0069І Read Іп G 
IEM0002I Read In CA IEMO0701 Read In CG 
ІЕМ00031 Read In CA, CP ІЕМ00711 Кеай Іп G 
ІЕМ00081 Read Іп СА IEMOOT72I Read In CG 
IEMOOO5I Read In CA,CL IEMOO7UI Read In G 
IEMOOO061 Read In CA ІЕМ0075І Кеай Іп CG 
ІЕМ0007І Read Іп СА IEMOO761 Read In e 
IEMOOO08I Read In CA IEMOO77I Read In CG 
ІЕМ00091 Read Іп СА ІЕМ0078І Read Іп CG 
ІЕМ00101 Кеай Іп СА IEMOOS80I Read In CG 
ІЕМ00111І Read Іп СА IEMOO81I Read In CG 
ІЕМ00121 Read In CA ІЕМ00821 Read In 5 
IEMOO13I Read In CA IEMOOB83I Read In CG 
IEMOO15I Read In CA IEMOOS8UI Read In CS 
IEMOO15I Read In CA ІЕМ0085І Read In СІ 
ІЕМ0016І Read Іп СА ІЕМ00901І Read In СІ 
IEMOO17I Read In CA IEMOO9UI Read In CI 
IEMOO18I Read In CA ІЕМ0096І Read In С5,СІ 
ІЕМ00191 Read Іп СА IEMOO97I Read In CI 
ІЕМ00201 Read Іп СА ТЕМООЭЗТ Веаа Тп 
IEMOO21I Read In CA IEMOO99I Read In CI 
ІЕМ00221 Read Іп СА ІЕМ01001 Read Іп СІ 
IEMOO23I Read In CA IEMO101I Read In CM 
IEMOO2LUI Read In CA IEMO102I Read In CI 
IEMOO25I Read In CA IEMO1031 Read In CI 
ІЕМ00261 Read Іп СА ІЕМО104І Read Іп сс 
IEMOO27I Read In IEMO105I Read In CCCG 
IEM0028I Read In CG IEMO1061 Read In CI,CV 
IEMOO29I Read In IEMO107I Read In CI 
IEMOO31I Read In CA,CL,CT IEMO108I Read In CI 
IEMOO32I Read In CC IEMO109I Read In CG,CI 
IEMOO33I Read In cc ІЕМ01101 Read Іп СІ 
IEMOO35I Read In cc IEMO111I Read In CI 
IEMOO37I Read In cc IEMO112I Read In CI 
ІЕМ0038І Read Іп cc IEMO113I Read In CG, CM 
IEMOO39I Read In CC IEMO115I Read In С 
ІЕМ00401І Кеаа Іп cc ІЕМ0115І Read In CL 
ІЕМ00411 Read In IEMO116I Read In CI 
ІЕМООЧЗІ Кеаа Іп сс ІЕМ0128І Read In CO 
IEMOOULUI Read In cc IEMO129I Read In CL 
ІЕМОО451 Read Іп cc IEMO130I Read In CL 
IEMOOL6I Read In CC IEMO131I Read In CO 
IEM0047I Read In IEMO1321I Read In CO 
IEMOOUSI Read In CG ІЕМ0133І Кеаа Іп CO 
ІЕМ0049І Read Іп IEM0134I Read In CP 
ІЕМ00501 Read In CL,CP IEMO138I Read In 
ІЕМ00511 Read Іп CL,CP IEMO139I Read In CP 
ІЕМ00521 Read Іп CO IEMO152I Read In CO 
ІЕМ00531 Read Іп СО IEMO143I Read In CO 
ІЕМ00541 Кеаа Іп СО ІЕМ018ШІ Read In 
IEMOO55I Read In CP IEMO145I Read In CO 
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ІЕМ01461І 
ІЕМ01491 
ІЕМ01501 
ІЕМ01511 
ІЕМ01521 
ІЕМ01581 
1ЕМ01591 
ІЕМ01601 
IEMO162I 
IEMO163I 
ІЕМ0164І 
ІЕМ01651І 
IEMO1661 
IEMO1671 
IEMO168I 
ІЕМ01691 
ІЕМ01701 
ІЕМ01711 
ІЕМ01721 
IEMO177I 
IEMO178I 
ІЕМ01791 
ІЕМ01801 
IEMO181I 
IEMO182I 


IEMO183I 
IEMO18UI 
IEMO1851I 
ІЕМ01871 
ІЕМО188І 
ІЕМ01891 
IEMO190I 
1БМ01911 
IEMO193I 
IEMO19UuI 
IEMO195I 
IEMO1961 
IEMO197I 
IEMO1981I 
IEMO201I 
1ЕМ02021 
IEMO205I 
ІЕМ02061 
ІЕМ02071 
IEMO208I 
IEMO209I 
IEMO2101 
IEMO211I 
IEMO212I 
IEMO213I 
ІЕМ02181 
IEMO 2161 
ITEM0 2171 
IEMO218I 
IEMO2201 
ІЕМ02211 
IEM0 2221 
ІЕМ0223І 
IEMO22UI 
ІЕМ02251 
ІЕМ02261 
IEMO227I 
IEMO228I 
ІЕМ02291 
IEMO230I 
IEMO2311 
ІЕМ02321 
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Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 


Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
kead 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 


СО 
CL, CM 


CO 
CO 


со 


ст 
CS,CT 


CL 


CL 


ст 
сі. 
CL,CS, 
CT,CV 


CT 
CT 


CT 
CT 


CT 


CT 


CL 


CG 
cG 
CC 


CL 
CP 
CP 
CP 


CP 
CL 
CT 
CT 


CT 
СІ 
CT 
CT 
CT 
CT 


CS,CT 
CT 
CT 


IEMO233I 
ІЕМО 2341 
ІЕМ0235І 
IEMO236I 
IEMO237I 
IEMO 2401 
ІЕМО241І 
ІЕМО 2421 
IEMO 2431 
IEMO2UUI 
ІЕМ02451І 
ІЕМ0254І 
IEMO 2551 
ІЕМ05121 
ІЕМ0513І 
IEM0514I 
IEMO515I 
IEMO5161 
IEMO517I 
ТЕМО518Т 
ІЕМ05191 
IEMO520I 
1ЕМ05211 
ІЕМ05221 
ІЕМ0523І 
IEMO52UI 
ІЕМ0525І 
IEMO527I 
ІЕМ0528І 
IEMOS29I 
IEMO 5301 
ІЕМО 5311 
IEM05321 
ІЕМ0533І 
1ЕМ0534І 
IEMO535I 
IEM0 5361 
ІЕМ0537І 
ІЕМ0538І 
IEMOS539I 
ТЕМО 58 0Т 
IEMO5U1I 
ІЕМ05421І 
ТЕМО 5431 
IEMO544T 
ІЕМО 5451 
IEMOSU6I 
ІЕМ05871І 
ІЕМ0548І 
ТЕМО 54 9Т 
ТЕМО 550Т 
ІЕМ05511І 
ІЕМ05521 
ІЕМ0553І 
ІЕМ055ШІ 
ІЕМ0555І 
ІЕМ0556І 
IEMO557I 
ІЕМ0558І 
ТЕМО 5591 
IEMO 560Т 
IEM05611 
1ЕМ05621 
ТЕМО 5631 
IEMO56UI 
IEM0 5651 
IEM0566I 
ІЕМ0567І 


Read In 

Read In 

Read In 

Read In 

Read In 

Read In 

Read In 

Read In 

Read In 

Read In 

Read In 

Read In 

Read In 

Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 


cV 


cs 
cs 
cs 
су 
су 
CV 
су 
су 
су 
сс 
CG 
EH 
ES 
EG 
ES 
ES 
EG 
ES 
EG 
ES 
EG 
ES 
EG 
EH 
EI 
EJ 
ЕН, EI,EJ 
EI 
EI 
EI 
EI 
EI 
EI 
EI 
EI 
EI 
EJ 
EJ 
EJ 
EJ 
EJ 
EL,EK,EM 
EL, EK, EM 
EL, EK, EM 
EL, EK, EM 
EL, EK, EM 
EL, EK, EM 
EL, EK, EM 
EL, EK, EM 
EK, EL, EM 
EL, EK, EM 
EL, EK, EM 
EL, EK, EM 
EL, EK, EM 
EL, EK, EM 
EL, EK, EM 
EL, EK, EM 
EL,EK,EM 
EL,EK,EM 
EL,EK,EM 
EK, EL, EM 
EK, EL, EM 
EK, EL, EM 
EK, EL, EM 
EK, EL, EM 
EP 


IEM05681 
1ЕМ05691 
ІЕМ05701 
ІЕМ05711 
ІЕМ05721 
IEM05731 
ІЕМ05891 
ІЕМ05901 
ІЕМ05911 
IEMOS592I 
IEMO593I 
ІЕМ0594І 
1ЕМ05951 
ІЕМ05961 
ІЕМ05971 
ІЕМ05981 
IEMO607I 
ІЕМ06081 
IEMO609I 
ІЕМ06101 
ІЕМ06111 
ІЕМ06231 
IEM06 241 
IEMO625I 
IEMO6261I 
ІЕМ06271 
IEMO6281 
ІЕМ06291 
ІЕМ06301 
ІЕМ06311 
IEMO6321 
IEMO633I 
IEMO63UI 
IEMO6361 
IEMO637I 
IEMO6381 
ІЕМ0640І 
ІЕМ06411 
ІЕМО642І 
IEM06431 
IEMOG6UUI 
IEMO652I 
IEMO653I 
ІЕМ065ШІ 
IEMO655I 
IEMO6561 
IEMO657I 
IEMO658I 
IEMO673I 
IEMO67UI 
ІЕМ06751 
ІЕМ06761 
IEMO6771 
IEMO683I 
IEMO68UI 
IEMO685I 
ІЕМ06861 
IEMO687I 
IEMO6881I 
ІЕМ06891 
ІЕМ0690І 
IEMO691I 
ІЕМ06921 
IEMO693I 
IEMO69UI 
IEMO695I 
IEMO6961 
IEMO697I 


Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 


IEM0699I 
ІЕМ07001 
ІЕМ07011 
ІЕМ07021 
ІЕМ07031 
ІЕМ07041 
ІЕМ07081 
ІЕМ07091 
IEMO7101I 
IEMO7111 
ІЕМ07121 
ІЕМ0715І 
IEMO718I 
IEMO7191 
IEMO7 201 
IEMO721I 
IEMO7 221 
ІЕМ0723І 
IEMO7 241 
ІЕМ0725І 
ІЕМ07261 
ІЕМ0727І 
IEMO7281 
IEMO7 291 
ІЕМ07301 
ІЕМ07311 
IEMO732I 
ІЕМ0733І 
IEMO7341 
IEM0735I 
IEM0736I 
ІЕМ0737І 
ІЕМ0738І 
IEMO739I 
IEMO740I 
IEMO7411 
ІЕМ07421 
IEMO743I 
IEMO7UAI 
ІЕМ0745І 
IEMO7461 
ІЕМ0747І 
IEMO7U8I 
ІЕМ07491 
ІЕМ07501 
ІЕМ07511 
IEM0752I 
IEMO7541 
IEMO7551 
ІЕМ0756І 
ІЕМ0758І 
IEM0759I 
IEMO 7601 
ІЕМ07611 
ІЕМ07621 
ІЕМ07691 
ІЕМ07701 
ІЕМ07711 
ІЕМ0785І 
IEM07861 
IEM0787I 
ІЕМ0788І 
ІЕМ07891 
ІЕМ07901 
ІЕМ07911 
ІЕМ07921 
ІЕМ0793І 
ІЕМ07941 


Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 


GP,GQ,GR 
GP,GQ,GR 
GP, GQ, GR 
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ІЕМ07951 
ІЕМ0796І 
ІЕМ0797І 
ІЕМ0798І 
IEMO799I 
ІЕМ08001 
ІЕМ08011І 
ІЕМ08021 
ІЕМ08031 
ІЕМ08041 
ІЕМ08051 
ІЕМ08061 
ІЕМ08071 
IEMO8161 
ІЕМ08171 
IEMO8181 
ІЕМ08191 
1ЕМ08201 
IEMO8211 
IEM08 231 
ІЕМ08241 
ІЕМ0825І 
ІЕМ08321 
ІЕМ0833І 
IEMO8 341 
ІЕМ0835І 
ІЕМ0836І 
IEMO837I 
IEMO8481 
ІЕМ08491 
ІЕМ08501 
ІЕМ08511 
IEMO8521 
ІЕМ0853І 
IEMO8641 
IEM08651 
IEMO 8661 
ІЕМ0867І 
ІЕМ0868І 
IEM08691 
IEMO870I 
IEM08711 
ІЕМ08721 
ІЕМ0873І 
IEMO8741 
ІЕМ08751 
ІЕМ0876І 
ІЕМ0877І 
ІЕМ0878І 
IEMO879I 
IEMOS880I 
ІЕМ08811 
ІЕМ08821 
IEMO8961 
IEMO897I 
ІЕМ08981І 
IEMO899I 
ІЕМ09001 
ІЕМ09011 
ІЕМ09021 
IEMO903I 
IEMO9061 
IEM0907I 
IEM10241 
IEM1025I 
ІЕМ1026І 
IEM10271 
IEM1028I 
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Pretranslator 
Pretranslator 
Pretranslator 
Pretransiator 
Pretranslator 
Pretranslator 


. Pretranslator 


Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretransiator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretransilator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretransiator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Translator 

Translator 

Translator 

Translator 

Translator 


GP,GO,GR 
GP,GQ,GR 
GP,GQ,GR 
GP,GQ,GR 
GP,GQ,GR 
GP,GQ,GR 
GP,GQ,GR 
GP,GQ,GR 
GP,GQ,GR 
GP,GQ,GR 
GP,GQ,GR 
GP,GQ,GR 
GP,GQ,GR 
GU,GV 
GU,GV 
GU,GV 
GU,GV 
GU,GV 
GU,GV 
GU,GV 

GU 

GU,GV 
HF, HG 
HF, HG 
HF, HG 
НЕ, HG 
HF, HG 
HF,HG 
HF, HG 
HF, HG 
HF, HG 
HF, HG 
HF, HG 
HF, HG 
HK,HL 
HK,HL 
HK, HL 
HK, HL 
HK, HL 
HK, HL 
HK,HL 
HK, HL 
HK, HL 
HK,HL 
HK, HL 
HK,HL 
HK, HL 
HK,HL 
HK,HL 
HK, HL 
HK, HL 
HK, HL 

HK 

HP,HQ 
HP, HQ 
HP, HQ 
HP, НО 
HP, HQ 
HP, HO 
HP, HQ 
HP, HO 
HP, HQ 
HP, НО 

IA 

IA 

IA 

IA 

IA 


IEM1029I 
ІЕМ1040І 
IEM1051I 
IEM10561 
IEM1057I 
IEM1058I 
ІЕМ10591 
IEM1060I 
ІЕМ1061І 
ІЕМ10621 
IEM10631 
ІЕМ1064І 
IEM1065I 
IEM10661 
IEM1067I 
IEMIO68I 
IEM10711 
IEM1072I 
ІЕМ1073І 
IEM107U1I 
IEMI088I 
IEM1089I 
IEM1090I 
IEM1104I 
IEM11051 
ІЕМ11061І 
IEM1107I 
IEM1108I 
IEM1110I 
IEM11111 
1ЕМ11121 
IEM11131 
IEM11141 
1ЕМ1115І 
IEM1120I 
IEM1121I 
1ЕМ11221 
IEM1123I 
1ЕМ1124І 
1ЕМ12001 
ТЕМ1 569Т 
IEM15701 
IEM15711I 
IEM15721 
IEM1574I 
IEM1575I 
ІЕМ16001 
IEM16011 
1ЕМ16021 
ІЕМ1603І 
IEM1604I 
ІЕМ1605І 
IEM16061 
IEM1607I 
IEM16081 
IEMI609I 
ІЕМ16101 
ІЕМ16111 
IEM1612I 
IEM1613I 
IEM1615I 
IEM16171 
ІЕМ1618І 
ІЕМ1 619І 
ІЕМ1620І 
IEM1621I 
ІЕМ16221 
IEM16231I 


Translator 
Translator 
Translator 
Translator 
Translator 
Translator 
Translator 
Translator 
Translator 
Translator 
Translator 
Translator 
Translator 
Translator 
Translator 
Translator 
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Aggregates 
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Ps eudo-code 
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Pseudo-code 
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Pseudo-code 
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LS, LT, LU 
LS 

LS, LT, LU 
LS, LT, LU 
LS, LT, LU 
LS, LT, LU 
LS, LT, LU 
LS, LT, LU 
LS, LT, LU 
LS, LT, LU 
LW 


IEM16241 
IEM1625I 
IEM1630I 
IEM1631I 
IEM1632I 
ІЕМ16401 
ІЕМ1641І 
IEM1 6421 
ІЕМ168ЗІ 
IEM1644I 
IEM1645I 
ІЕМ1648І 
IEM1649I 
ІЕМ16501 
ІЕМ16511 
ІЕМ16521 
ІЕМ1653І 
ІЕМ1654І 
ІЕМ1655І 
ІЕМ16701 
ІЕМ16711 
ІЕМ16801 
ІЕМ1687І 
ІЕМ1688І 
ІЕМ16891 
ІЕМ16911 
ІЕМ16921 
IEM1693I 
ІЕМ1750І 
IEM17511 
IEM1793I 
IEM179U01 
IEM1795I 
ІЕМ18001 
ІЕМ18011 
1ЕМ18021 
IEM18031 
IEM18041 
ІЕМ1805І 
ІЕМ1806І 
ІЕМ1807І 
IEM1808I 
IEM1809I 
IEM1810I 
IEM18111 
IEM1812I 
IEM18131 
IEM18141 
IEM1815I 
IEM18161 
ІЕМ1817І 
IEM18181 
ІЕМ18191 
IEM1820I 
IEM18211I 
ТЕМ18 221 
IEM1823I 
1ЕМ18241І 
ІЕМ18251І 
IEM18261I 
IEM1827I 
ІЕМ18 281 
1ЕМ1832І 
ІЕМ1833І 
ІЕМ1834І 
IEM1835I 
IEM18361 
IEM1837I 
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Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
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MB 
MB 

MG, MH 
MI, MJ 
MI,MJ 
MM, MN 
MM, MN 
MM, MN 
MM, MN 
MM, MN 


MM, MN 
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MM, MN 
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IEM1838I 
IEM18391I 
ІЕМ1840І 
ІЕМ18411І 
IEM1843I 
IEM1844T 
ІЕМ1845І 
ІЕМ1846І 
IEM1847I 
IEMI848I 
IEM1860I 
ІЕМ1861І 
IEM18621 
IEM1870I 
IEM18711 
IEMLI872I 
IEM1873I 
IEM1 8741 
IEM18751 
IEM23041 
IEM2305I 
IEM2352I 
IEM27001 
IEM27011I 
ІЕМ27021 
IEM2703I 
IEM270UI 
ІЕМ2705І 
ІЕМ2706І 
ІЕМ2707І 
IEM27081 
ІЕМ2709І 
IEM27101 
IEM2711I 
IEM2712I 
IEM2817I 
IEM2818I 
IEM2819I 
IEM28201 
IEM28211 
IEM2822I 
IEM2823I 
ІЕМ2824І 
ІЕМ2825І 
ІЕМ28261І 
ІЕМ2833І 
1ЕМ283ШІ 
IEM2835I 
IEM2836I 
IEM2837I 
IEM28491 
IEM2852I 
IEM2853I 
ІЕМ2854І 
ІЕМ2855І 
ІЕМ2865І 
ІЕМ28661 
ІЕМ2867І 
IEM2868I 
IEM28811 
IEM2882I 
IEM2883I 
IEM2884I 
IEM2885I 
IEM28861 
IEM2887I 
IEM2888I 
IEM2897I 


Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Ps eudo- code 
Pseudo-code 
Pseudo- code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
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Storage Allocation 
Storage Allocation 
Storage Allocation 


Register 
Register 
Register 
Register 
Register 
Register 
Register 
Register 
Register 
Register 
Register 
Register 
Register 


Allocation 
Allocation 
Allocation 
Allocation 
Allocation 
Allocation 
Allocation 
Allocation 
Allocation 
Allocation 
Allocation 
Allocation 
Allocation 


Final 
Final 
Final 
Final 
Final 
Final 
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Final 
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Assembly 
Assembly 
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Assembly 
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PD 
RF, RG, RH 
RF, RG, RH 
RF, RG, RH 
RF, RG, RH 
RF, RG, RH 
RF, RG, RH 
RF, RG, RH 
RF, RG, RH 
RF, RG, RH 
RF, RG, RH 
RF, RG, RH 
RF, RG, RH 
RF, RG, RH 
TA 
TA 
TA 
TA 
TA 
TA 
TA 
TA 
TA 
TA 
TF 
ТЕ 
ТЕ 
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1ЕМ2898І 
ІЕМ28991 
ІЕМ29001 
IEM2913I 
ТЕМЗ5 8 &Т 


IEM3840I 
IEM38411 
IEM38421 
IEM3843I 
IEM38441 
IEM38451 
IEM38461 
IEM38471 
IEM3848I 
IEM38491 
IEM3850I 
IEM38511 
IEM38521 
IEM38531 
IEM38541 
1ЕМ38551 
IEM38561 
IEM3857I 
IEM38581 
IEM3859I 
IEM38601 
IEM38611 
IEM38621 
IEM38631 
IEM38641 
IEM38651 
IEM387 21 
IEM387 31 
IEM387U0I 
IEM38751 
. IEM38761 
IEM38771 
IEM38781 
IEM3880I 
ІЕМЗ888І 
IEM3889I 
IEM38901 
IEM38911 
ІЕМЗ8921 
IEM3893I 
IEM38941 
IEM3895I 
IEM38961 
IEM38971 
IEM3898I 
IEM39041 
IEM39051I 
IEM39061 
IEM39071 
IEM39081I 
IEMU106I 
ІЕМ4109І 
IEMU112I 
IEMU115I 
IEMU118I 
ІЕМ41211 
TEM41241 
IEM41301 
IEM41331 
IEM4134I 
IEM4136I 
TEM41391 
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Final Assembly 
Final Assembly 
Final Assembly 
Final Assembly 
48 Character 
Preprocessor 
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Compiler 
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Control 
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Control 
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Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 


Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
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Processor 
Processor 
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UC 
UC 
UF 
BX 
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AS, BC, BG 
BC, BG 
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IEM41421 
TEM41431 
ІЕМ8148І 
ІЕМЧ150І 
IEMU151I 
IEM4152T 
IEMU153I 
IEMUT15UI 
IEMU157I 
IEM4160I1 
ІЕМ4163І 
IEMU1661 
IEMU169I 
IEMU1721 
IEMU175I 
IEM41761 
IEMU178I 
IEM41841 
IEM41871I 
ІЕМ4188І 
IEMU1901 
IEM41931 
IEM41961 
IEMAU199I 
ТЕМ4 2021 
IEM4 2051 
IEM4 2081 
IEM4 2111 
IEM4 2121 
ІЕМ& 2141 
ТЕМ4 2171 
IEM4 2201 
IEM4 2231 
IEM4 2261 
ТЕМ! 2291 
IEM4 2321 
ТЕМ! 2351 
IEMU238I 
TEM4 2411 
ITEM4 244T 
IEM4 2471 
ТЕМП 2481 
IEM4 2501 
ITEM4 2531 
ITEM4 2541 
ТЕМ 2561 
IEM4 2591 
IEM4 2621 
IEM4 2651 
ТЕМ 2711 
IEM4 2771 
ТЕМ 2801 
IEM4 2831 
IEM42861 
ТЕМ 2891 
IEM4 2921 
IEM4 2951 
ITEM4 2961 
ITEM4 2981 
IEMU299I 
IEM43011 
ITEM4 3041 
ІЕМ8З07І 
IEM4 3101 
IEM4 3131 
IEM4 3191 
ТЕМ 3221 
ІЕМ8З25І 
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Compile-time 
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Processor 
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ITEM43281 
IEM43311 
IEM43321 
ITEM4 3341 
IEM43371 
IEM43401 
IEM4 3431 
IEM43461 
IEM4349I 
IEM43521 
ІЕМЦ355І 
IEM43581 
IEM4361I 
ІЕМ 3641 
ІЕМ4367І 
ІЕМА370І 
IEMA4373I 
ТЕМ 37 6Т 
IEM43791 
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IEM4 2831 
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ITEM4 3941 
LTEM4 397i 
IEMQ4QOI 
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TEMG aust 
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IEM4452I 
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ТЕМ 4 6 9Т 
IEM4 4721 
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IEM45141 
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ІЕМ4520І 
ІЕМЧ523І 
IEMU5261I 
ТЕМ 529Т 
ТЕМ 532Т 
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IEM4 5381 
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ТЕМ4550Т 
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ТЕМ4559Т 
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APPENDIX J: COMPILE-TIME PROCESSOR 


This appendix describes, for the 
Compile-time Processor Logical Phase, the 
internal formats of text and tables, com- 


munication region use, Operating System 
interfaces and compiler control interfaces. 


1. INTERNAL FORMATS OF TEXT 


The 
compile-time 


internal format of text used by the 
processor is  EBCDIC. As 


Source input is read into storage,  non- 
macro text is moved directly into text 
blocks after translation to internal 
format. Encoded compile-time statements 
and line numbers are also placed in text 
blocks. 


The compile-time processor uses a set of 
chained dictionary entries.  Hashing tech- 
niques are used to add ап item to the 
dictionary or to search for an entry. A 
compile-time processor dictionary item is a 
variable-length item with the following 
Skeletal format: 


The fields defined in this skeleton have 
the following meaning and usage: 


LENGTH: The length of the EBCDIC name. If 
the item has no name (e.g., а 
constant) this field is zero. 


declared. Each procedure is 
assigned a unique number. The 
identifiers in the non-procedural 


text are given the procedure number 
1. The built-in function SUBSTR is 
given the procedure number 0. 


HASH-CHAIN-POINTER: The dictionary address 
of the next item on this hash 
chain. This address is zero if no 
item follows. 


TYPE: A byte which gives the attributes of 


the entry. The bits (if on) have 
been assigned the following mean- 
ings: 
BIT MEANING 

1 fixed 

2 character 

3 bit 

4 entry 

5 label 

6 INCLUDE identifier 

7 iterative DO 

8 constant 

VALUE/VALUE-POINTER: If the item is fixed, 

this contains the value proper 


stored as a five-digit packed deci- 
mal number. Otherwise it contains 
a pointer to the value stored in 
IVBs. The definition of value for 
the various kinds of entries is 
given below. For a fixed macro 
variable, this contains the value. 
For a character variable, it con- 
tains a pointer to IVBs containing 
the value. For a procedure, it 


PROC NO.: The number assigned to the proce- points to the text-block location 
dure in which the identifier was of the code. For a label, it 
Byte 1 Byte 2 Byte 3 Byte 4 
= — «лы. ee  — A — шь жаз — Fe ppp жаа а qe чао «лме ee — — «ме — MM — — M — ee — — «кш» Ин» oe — — 
Word 1 | LENGTH | PROC NO. | HASH-CHAIN-POINTER | 
ааа 4----------і---------------------4 
Word 2 | TYPE | VALUE/VALUE-POINTER | 
---------- 1---------- т------------------ —1 
Word 3 | FLAGS | COUNT | 
=——— 1--------------------- 1 
Word 4 | POINTERS/PARM-TYPES | 
шш шша шшш шш ea ши шш ЫЫЫ ee абы 1 
Word 5 | EBCDIC NAME ------ > | 
Е eee mI iL eL кесш] 
| | 
І--------------------------------- ----------і 
Word n | ------ > EBCDIC NAME | 
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points to the text-block location 
of the label. If references to the 
label are found before the label is 
discovered, the value pointer tem- 
porarily points to a chain of IVBs 
with a description of every GOTO 
transferring to this label. This 
information is processed and dis- 
carded when the label is found. 
For an INCLUDE identifier, it 
points to the beginning of the 
included text. 


FLAGS: This set of bits provides additional 
information about the use of the 
item. They are used as follows: 


BIT MEANING 


1 Special entry bit 

2 DECLARE encountered (Phase 
BC) 

3 procedure body encountered 
(Phase BC) 

4 parameter 

5 used to indicate a procedure 
called by Phase II scan. 

6 DECLARE encountered (Phase 
BG) 

7 unused 

8 ACTIVATE bit 

9 "in-use" bit 

10 "indirect reference" bit 

11 "undefined" bit for multiple 
declarations 

12 left-hand side (LHS bit) 


This field occupies a half-word. 


COUNT: For a procedure entry, this field 
contains а count of the number of 
parameters for the procedure. For 
INCLUDE identifier it is zero ini- 
tially, and subsequently contains 
the initial line number assigned to 
the included text. 


POINTERS/PARAM-TYPES: For a procedure, the 
field contains an encoding of the 
type information for each formal 
parameter. Two bits are reserved 
for each parameter. One indicates 
fixed; the other indicates charac- 
ter. If neither bit is set, this 
indicates that the entry  declara- 
tion did not specify attributes for 
the parameters. 


For a label, word 4 contains two 
pointers to dictionary items. One 
points to the dictionary entry for 
the immediately embracing iterative 
DO. The second half-word contains 
a pointer to the dictionary entry 
for the immediately embracing 
INCLUDE. This provides a method of 
checking the legality of  GOTOs. 
For an INCLUDE identifier, only the 


CD, is 28 characters long. TWO 


pointer to the immediately embrac- 
ing INCLUDE is kept. 


During Phase I, word 4 is used for 
labels and simple variables to hold 
two pointers. These form a bi- 
directional chain of all labels and 
variables having the same procedure 
number which have been used but not 
defined. This information is used 
only is Phase I and can therefore 
be overlaid. 
EBCDIC NAME: A variable length field, 
containing the EBCDIC name of the 
item. If the item has no name, 
this field is not included. 


Format of an Identifier Value Block (IVB) 


To hold character and bit string values, 
some text blocks are organised into sub- 
blocks of 32 bytes each. Of these 32 
bytes, 27 are used to hold values or parts 
of values. The first byte is used to hold 
a copy of the last character in the 
preceding IVB. This copy is made to facil- 
itate backup. The last four bytes consist 
of a condition code of one byte followed by 
a 3-byte chain pointer. A set of these 
sub-blocks, chained together, is used to 


hold a value. The condition byte is zero 
for all except the last sub-block in a 
value. In this last condition code byte 


the first bit is set to 1 to indicate 
"end-of-value." The remaining bits are a 
count of the significant bytes in the 
sub-block. There is a maximum of 27 signi- 


ficant bytes in an IVB. 


The chain address is used to point to 
the next sub-block in a value. The meaning 
of the chain address in the last  sub-block 
in a chain depends on how the chain is 
being used. 


These small chained sub-blocks are 
referred to as “identifier value blocks," 
or IVBs. 


Text blocks are allocated to hold IVBs 
as the need arises. Those IVBs not  cur- 
rently in use are chained together into an 
availability chain and are re-used when 
needed. 


An example of a character string value 
held in IVBs 15 shown. The character 
string, which starts with AB and ends with 
IVBS are 
required to hold the value. The 
first ТУВ, 


thus 
string AB...C is put into the 
while the last character, D, is put into 
another IVB. The condition code byte of 
the first IVB is zero. The second condi- 
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жи тиг tee ЛЕВ Ж plate ала ыды алы шы 
|?AB ... с |0.|---->|ср///// | 

ЕЕ №25 4—4 | ae en ЗЕНА СН — Alccoc- 
«----28------ > 1 3 <---28----- > <---1-- 


tion code byte is 10000001. The first "1" 
indicates end-of-value, while 0000001 is a 
count of the significant characters in the 
IVB. 


Besides holding character-string values, 
IVBS are used in many places by the 
compile-time processor to hold information 
which must be chained from a dictionary 
entry and which is of indefinite length. 
These uses are noted elsewhere. 


——M——À —À—ÓÀ —À———ÓÓÓ—Ó MÀ M—— 


Processor 


Compile-time statements are handled in 
two parts. During Phase BC, each statement 
is recognized and syntax checked. An 


encoded form of the statement is then 
placed into the current text block. During 
Phase BG these encoded statements are exe- 


cuted by an interpreter. 


All expressions are encoded in postfix 


Polish. A stack is used during Phase II to 
hold all operands. Conversions are done іп 
Phase BG. 


Thus the expression (A*B)||C, for 
ple, is turned into 


exam- 


A B + CII 
To be more explicit, it is turned into the 
instructions 


PUSH A; 
PUSH B 
ADD; 

PUSH C; 
CONCAT 


The PUSH operator pushes its operand 
onto the phase II stack. This stack con- 
sists of 150 full words in scratch storage. 
The first byte of each call is а status 
byte; the last three bytes hold the value 
if the item is FIXED, a pointer if the item 
is CHARACTER or BIT, or an indirect ref- 
erence to a dictionary entry if the indi- 
rect bit is on. 


The bits of the status byte 
following meaning if set to one: 


have the 
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dues 
-> <-3-> 
BI MEANING 
1 FIXED 
2 CHARACTER 
3 BIT 
4 Indirect reference (i.e., points 
to a dictionary entry) 
5 Character string value does not 


"belong" to the stack and should 
not be erased when stack is 
popped. (Shared with Phase BG 
scan.) 


Bits 6-8 are unused by the interpreter. 
They are reserved for Phase BG scan. 


All instructions generated by the Phase 
BC code generators begin with an operation 
byte. Depending on the operation, it may 
be followed by zero or more bytes of 
information which are intrinsically part of 
the instruction. Each instruction may have 
either or both of the characteristics STACK 
and FIXED. The definition of these charac- 
teristics follows: 


1. STACK. These instruction consist only 
of the one-byte operator. They take 
their operands, if any, from the Phase 
II stack. These operators correspond 
in general to the PL/I arithmetic and 
string operators. Depending on wheth- 
er they are unary or binary, they use 
the top one or two items on the stack. 
Before these operands are used, they 
are converted, if necessary, in place 
to the required type. After the items 
are used they are popped from the 
stack. The result of the operation is 
pushed onto the stack. 


The conversion, the popping, and the 
pushing are all implied for а stack 
operator. 


2. FIXED LENGTH. These operations are 
followed by a fixed number of bytes -- 
usually two. These bytes, which usu- 


ally refer to a dictionary entry, 
serve as the operand(s) of the 
instruction. 

The table below shows the operations 


that are to encode macro instructions. The 
operand description indicates only the gen- 
eral operand type for a variable-length 
item. The count byte is omitted. 


[MNEMONIC] TYPE | ||| OPERAND DESCRIPTION о i. FUNCTION =” | 
[app | STACK |BINARY; OPERANDS, RESULT FIXED јав — 00 | 
on | STACK Seer OPERANDS, RESULT FIXED Te | 
| MUL | STACK БТН OPERANDS, RESULT FIXED ede | 
a | STACK ery OPERANDS, RESULT FIXED ren | 
| UNMIN | STACK КӨ OPERAND, RESULT FIXED ES | 
Laos | $ТАСК ао, OPERAND, RESULT FIXED [ун | 
mom STACK VERAS: B CONVERTED TO TYPE OF A Dt (assignment) | 
| | FIXED | | | 
| | | | | 
| NOT | STACK |UNARY; OPERAND, RESULT BIT l1 В | 
Lis | STACK Ее OPERANDS, RESULT BIT hee | 
co | 5ТАСК КҮТ OPERANDS, RESULT BIT Ae 
foe | STACK m OPERANDS, RESULT CHAR re | 
18005 | STACK T OPERANDS, RESULT VARY T (equality) | 
I | 5ТАСК ТН OPERANDS, RESULT VARY ro | 
bon | STACK n OPERANDS, RESULT VARY Ех | 
е | FIXED ева dictionary reference ГЕ А | 
Sob | FIXED ТЕ code Ж processing | 
EM | FIXED ТЕЛЕ ЭРЕ dictionary reference Тәте to label | 
ore | FIXED geass dictionary reference fae to label | 
ee | STACK desire dictionary reference НЕСЕ to label | 
| | FIXED | [1Ё top of stack false. | 
кз | STACK eee dictionary reference and acces the procedure | 
| | FIXED |а one-byte argument count | | 
cua | FIXED ae two-byte dictionary references Dm out of INCLUDE | 
ons | FIXED |Two-byte dictionary reference TM A onto stack | 
а | FIXED S MM dictionary reference TNCS address of A | 
| | | Jonto stack | 
‘done | FIXED КҮК line count |Put line count into LINCNT | 
cor | FIXED i operand БІТЕР interpreter | 
ЕЗ | FIXED f operand eem to Phase II scan | 
Pe | FIXED ЕВ dictionary references neue uate A | 
to | FIXED meee dictionary references | DERORIVATE A | 
LG | FIXED ЖООК reference ІТ А | 
ково | FIXED PONTEM reference qme the DECLARE, once | 
| | | | executed | 
шы З СЧЕТ ЯН? Дес шы Beeb ш E ee О ЕО НЫНЕ ec 4 
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T T T 

| ММЕМОМТС | ТУРЕ | OPERAND DESCRIPTION | FUNCTION | 
-------- 4-------%------------------------------------4----------------------------і 
| CVT | FIXED |Dictionary reference {Convert to RETURNS | 
| | | [attribute | 
| | | | 
|КЕТМ? | FIXED |Dictionary reference |Return from procedure А | 

+ 1 


1The ASSIGN operator does not push a result. Тһе expression result is found оп| 
the PDS and is popped; the dictionary reference for the left hand side is the| 
single argument. | 


2Operand conversion for EQU, СІ, and LT is as specified іп ІВМ System/ 
Operating System: PL/I Language Specifications, Form C28-6571. 


3The TRAF uses and pops the top operand on the stack. It is treated as a bit 
string for conditional transfers. 


arguments are (a) the dictionary entry for the label to which control is to TA 
and (b) the dictionary entry for the current INCLUDE. 


SThe arguments for the invocation are contained оп the stack. The dictionary 
reference is to the procedure entry. 


| 
60 | 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
6This converts the top of the stack to the attributes specified іп the RETURNS| 
attribute for the procedure A. | 

| 
7This terminates the invocation of procedure A and converts the value on the top] 


| 
| 
| 
| 
| 
| 
| 
| 
| 
|*This handles GOTOs out of included text. At this point CLNUP is performed. he 
| ; 
| 
| 
| 
| 
| 
| 
| 
| 
| оғ the stack to the attribute specified on the PROCEDURE statement. 
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24 


The region from offset 0 to offset 304 
(ZCOMM) is used as a general communications 
region throughout the compiler, including 


Name 


STATUS 


STA2 


SUBSTRDR 


TOKPTR 


INCPTR 
INBUF 

OUTBUF 
PDSPTR 


ENDBUF 


WHERE 


IVBPTR 
LINCNT 
TEMPTR 
DCENTY 
CURINC 
CURDO 
PROCNO 
NXTPC 
DPHCNI 
CODE 


LENGTH 


COMMUNICATIONS REGION USE 


Dec. 
Offset 


ZCOMM 


ZCOMM+1 


ZCOMM+2 


ZCOMM+4 


ZCOMM+ 8 

ZCOMM*12 
ZCOMM*16 
ZCOMM* 20 


ZCOMM+24 


ZCOMM+ 28 


ZCOMM+ 32 
ZCOMM+ 36 
ZCOMM+ 40 
ZCOMM+ 4 2 
ZCOMM+44 
ZCOMM+ 46 
ZCOMM+48 
ZCOMM+49 
ZCOMM+50 
ZCOMM+5 2 


ZCOMM+54 


the compile-time processor. The region 
from ZCOMM to ZCOMM+463 is also used by the 
compiler; however, during the compile-time 
processor phase, this region is used exclu- 
Sively by the compile-time processing. The 
details of this usage are shown below. 





Contents 
Byte 1: Bit 0 not used 
1 PROCSW -- processing macro procedure 
Note: 2 FINDBIT -- SRHDIC has found dictionary item 
Condition 3 ERSW -- diagnostic produced in Phase II 
Settings 4 EFSW -- end of file encountered (input) 
"1" = set 5 LEVBIT -- processing IVB 
"0" = off 6 INCSW -- processing included text 
7 PH2SW -- in Phase II 
Byte 2: Bit 0 OLDINC -- processing already listed INCLUDE 
1 SKPSW -- indicates entry to END from PRCSCN 
2 NOPERCENTSW -- look ahead for % completed 
3 SYSOPN -- SYSLIB DCB is open 
7 ARG -- indicates that Phase II is looking for 


arguments of activated procedure 
Holds dictionary reference of 0 level SUBSTR entry 


Address of character being scanned, text reference or 
absolute, right justified 


Save area for TOKPTR 

Absolute address of input buffer, right justified 

Absolute address of output buffer, right justified 
Absolute address to top of pushdown stack, right justified 


Absolute address to last significant character in input 
buffer, right justified 


Address of next available byte in output buffer, text 
reference or absolute, right justified 


Text reference to next free IVB, right justified 

Holds current line number, right justified 

Dictionary reference to top of "in-use" temporary stack 
Dictionary reference for chaining dictionary items 
Dictionary reference to INCLUDE entry being processed 
Dictionary reference to DO entry being processed 
Current procedure number, right justified 

Next available procedure number, right justified 
Current depth count | 

Code for token type 


Number of significant characters in TOKBUF, right justified 
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MXDPTH 
INDEX 
ATTR 
GRSAVE 
NEWIVB 
VALUE 
PREINB 
BUFSRT 
INIVB 
OUTIVB 
TXTBLK 
INVBAB 
ООТІУБАВ 
TXTBLKAB 
MTABC 
TXTEST 
BUF1 
BUF 2 
LIBDCB 
USRDCB 
MAXLCT 
PRCWHR 
DCENTYAB 
SCHK 
PROCCL 
OUTERCL 
PROCCLDR 
OUTRCLDR 
DECIDR 
CURPRC 
TOKBUF 


HASTB 


CONSCH 


SPECCH 
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ZCOMM+ 56 
ZCOMM+58 
ZCOMM* 60 
ZCOMM+64 
ZCOMM+ 68 
ZCOMM+ 72 
ZCOMM+76 
ZCOMM+80 
ZCOMM+84 
ZCOMM+ 85 
ZCOMM+ 86 
ZCOMM+ 88 
ZCOMM* 92 
ZCOMM* 96 
ZCOMM+100 
ZCOMM+104 
ZCOMM+108 
ZCOMM+112 
ZCOMM+116 
ZCOMM+120 
ZCOMM+124 
ZCOMM+128 
ZCOMM+ 132 
ZCOMM+136 
ZCOMM+140 
ZCOMM+142 
ZCOMM+144 
ZCOMM+146 
ZCOMM+148 
ZCOMM+152 
ZCOMM+164 


ZCOMM+ 300 


ZCOMM+ 428 


ZCOMM+ 430 


32 


128 


Integer value of depth of replacement, right justified 


Hash table index for dictionary routines 


“Type" byte for dictionary routines 


Save area for GRG 


Pointer to IVB chain to be freed or obtained 


Type and value/value pointer for dictionary entries 


Pointer 
Pointer 
Current 
Current 
Current 
Current 


Current 


to header information for INBUF 


to left margin in INBUF 


busy block number 


busy block 
busy block 
block used 


block used 


number 
number 
in absolute 


in absolute 


address calculation 


address calculation 


Current 


Address 


block used in absolute 


of translate table for 


address calculation 


TOKSCN and FINDPC 


Length of text block adjusted for chain address 


Pointer 
Pointer 
Pointer 
Pointer 
Maximum 


Pointer 


to first INCLUDE buffer 

to second INCLUDE buffer 
to DCB for SYSLIB data set 
to DCB for user data sets 
line count used so far 


to next byte in which to put procedure text 


Absolute address of dictionary entry 


Pointer to 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 


Pointer to 


level 1 SUBSTR entry 


reference 
reference 
reference 
reference 


reference 


of procedure check list 
of outer check list 

for PROCCL cell 

for OUTERCL cell 


of dictionary entry for DECIMAL 1 


current procedure entry on PDS 


32-byte buffer, characters inserted left justified 


64 two-byte dictionary references to hash chains 


items 


for named 


Dictionary reference to constant chain 


Dictionary reference to special chain -- debugging only 


3. COMPILE-TIME PROCESSOR, OPERATING 
SYSTEM, AND COMPILER CONTROL INTERFACES 


Although the compile-time processor 
makes considerable use of the Operating 
System facilities, it usually does so indi- 
rectly through the compiler control. How- 
ever, those Operating System services 
required to support the INCLUDE facility 
are invoked directly. Since included text 
is required to be a member of a partitioned 
data set, it is those data management 
facilities which support BPAM which are 
used. Specifically the macros OPEN, FIND, 
CLOSE, READ and CHECK are used by various 
parts of the INCLUDE handler. Details of 
these macros can be found in IBM System/360 


Operating System: Control Program Services, 
Form C28-6541. 


The root phase is invoked by the compil- 
er control if the MACRO option 15 speci- 
fied. All subsequent communication between 
the compile-time phases and the compiler 
control is done by way ‘of cells in the 
communications region. This includes the 
parameters passed to the Е service rou- 


tines, the decoded options which are test- 
ed, and the cells set to indicate the 
Status of source margins and mode (EBCDIC) 


of the output. 

Specifically, the following cells in the 
communications region are either used or 
set: 


PAR1 


PAR2 


ZTV 


ZMYNAM 
MCSIZE 
CCCODE 
TXTSZ 


ZSOR -- column number in which to begin 
scan of input text 


ZMAG -- column number in which to end 
scan of input text 


ZTRAN1 


The following compiler control routines 


are referenced: 


ZUPL RELESE 
ZURD RLSCTL 
ZUGC ZTXTRF 
ZUTXTC ZTXTAB 
ZURC ZCHAIN 
ZABORT ZALTER 
ZLOADW ZDABRF 
ZDICRF ZEND 
ZUERR ZUBW 
ZDRFAB 


Appendix J: Compile-time Processor 377 


INDEX 


to items in Section 3. (For details of the 
organization of Section 3, see page 57.) 


Note: This index refers to the descriptive 
sections only; it does not refer directly 


Abbreviations used during compilation 
341-349 
Abort 292 
ABS function 44 
ABS marker 336 
ABS' marker 336 
Absolute code 335-336 
format of 
RR instructions 336 
RS instructions 336 
RX instructions 336 
SI instructions 336 
SS instructions 336 
Accumulator register 52 
Address calculation 53 
Address constants 55 
Address conversion 13 
Addressing mechanisms 52 
Adjustable length strings 44 
Aggregates logical phase 39-40 
function 15, 17 
ALLOCATE chain 25, 27 
ALLOCATE statement 52 
analysis 27 
attributes 32 
format after read-in 325 
ALLOCATE triple 
translation to pseudo-code 48 
Allocated item 
dictionary entry 32 


CHARACTER 30 

DEFINED 30, 31, 34, 338 

dimension 30 

GENERIC 31, 44 

INITIAL 30, 31 

INITIAL CALL 30, 31 

LABEL 30 

LIKE 30, 31 

FICTURE 30 

POSITION 30 

precision 30 

SETS 30, 33 

USES 30 

association with identifiers 31 

check for invalid 29 

conflicting 31 

default 31 

expressions іп 336 

factored 30 

Syntax check 27 

test for consistency 28 
AUTOMATIC chain 33, 34, 51 

delimiter dictionary entry format 

storage allocation 49, 50 


BALR instruction 53 

Base registers 53 

BCD 
dictionary entry format 312 
to dictionary reference 32 


ALLOCATION function 44 input 292 
AREA 22 BEGIN block 51 
Arithmetic triples 42 linkage 52 
Arrays BEGIN chain 27 


assignment 37 
adjustable bounds 31 
bounds 
format of second file statement 337 
correspondence defined 40 
expressions 37 
initialization 42 
processing 39 
storage allocation 50 
Assigned registers 53, 335 
Assignment statements 
format after read-in 323 
nested 37 
Assignment triple 
translation to pseudo-code 48 
ATR Listing 
(see attribute listing) 
ATR option 14, 34, 292 
Attribute collection area 30, 31 
Attribute list 29 
Attribute listing 
how produced 34 
Attributes 30 
BIT 30 
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BEGIN statement 32, 51 

format after read-in 322 
BEGIN triple 

translation to pseudo-code 48 
BEGIN' triple 45 

translation to pseudo-code 48 
BEGIN-END statement analysis 27 
BINARY function 44 
BINARY standard type DED 50 
BIT attribute 30 
BIT function 44 
BLDL macro 20, 22, 292 


Block control 19 


Block header chain 29 

BOOL function 43 

BPAM 377 

Branch and link ‘instruction 53 

Branch outside block 33 

BSAM 21 

Build list 20, 22, 292 

Built-in function 
addressing slot 49 
aggregate arguments to 39 
dictionary entry format 311 


314 


name 31 
(see also functions) 
BUY ASSIGN statement 48 


BUY statement 35, 36, 48, 52 
reordering of 44 
BUY triple 


translation to pseudo-code 48 
BY NAME option 35 


CALL chain 25, 27, 
CALL statement 32 
analysis 27 

format after read-in 324 
Card image output 14 
Catalogued procedures 13 
CCCODE 15, 22 

(see also format of) 

CEIL function 44 


31, 32 


Chains 
ALLOCATE 25, 27 
AUTOMATIC 33, 34, 49, 50, 51 
BEGIN 27 
CALL 25, 27, 32 
CALL 25, 27, 314 32 
constant 49 
CONTROLLED 49, 51, 55 
DECLARE 25, 27 
DEFINED 40 
ENTRY 27 
entry type 1 31 
LIKE 31 


PICTURE 33 
PROCEDURE 27 
PROCEDURE-ENTRY-BEGIN 25 
STATIC 55 
storage class 293 
Chameieon temporary 36, 39 
CHAR function 44 
CHAR48 option 21, 292 
CHARACTER attribute 30 
Character translation tables 19 
CHECK list 33 
dictionary entry format 
pretranslator scan of 37 
CHECK macro 377 
CLOSE macro 377 
CLOSE statement 46 
format after read-in 326 
Code bytes, dictionary entry 293 
text 327-328, 332-335 
Code produced for prologues and epilogues 
358-362 


313 


Communication between phases 293 

Communications region 15, 19, 23, 352-355 
names of locations 353 
use by compile-time processor 375-377 


Compare action 38 
Compare weght 38 
Comparison triples 43 
Cómpilation 
entry point to 55 
Compile-time processor logical phase 


23-24, 370-377 
cleanup phase 24 
communications region use 375-377 
compiler control interface 377 


error messages 24 
function 15, 17 


initial scan and translation 24 
instruction codes 377-374 
internal formats of text 370-374 
line numbering 23 
operating system/360, interface with 
377 
output 24 
Compile-time statement 23 
Compiler control 19, 352 
compile-time processor interface 
routines 16 
functions 13 
initialization 13 
Compiler functions 28 
pseudo-code 48 
format 335 
Compiler label 
dictionary entry format 
numbering 55 
Compiler logic, guide to 
Compiler options 13 
table 22 
Compiler organization 15, 16 
Compiler phases 19-56 
ioading 13 
Compiler pseudo-variables 28 
pseudo-code 48 
Completion code, compiler 20 
COMPLEX function 44 
CONDITÍON condition 33 
CONJG function 44 
Constant chain 49 
Constant, conversion to internal form 4 
Constant marker 32 
Constants pool 49, 55 
Containing block chain 29 
Control code word 15 
(see also format of) 
Control, compiler 
(see compiler control) 
Control flow 16 
Control, passing between phases 15 
CONTROLLED chain 
final assembly scan 55 
storage allocation scan 49 
CONV pseudo-code macro 48 
Correspondence defining 34, 40 
Cross-reference listing 
how produced 34 


377 


309 


57-286 


CSECTs 54 

Data byte format 305 

Data element deScriptor (DED) 33 
Data flow 18 

Data item dictionary entry format 300 
Data list 36 


association with format list 47 
Data sets 13, 14 
Data transmission 47 
Data types, incompatible 36 
DCLCB generation 54 
Debugging 13 
DECIMAL function 44 
DECIMAL standard type DED 50 
DECLARE chain 25, 30 
DECK option 14, 292 
DECLARE chain 27 
DECLARE control block 54 


Index 


8 
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DECLARE statement 32 Dumping 21 


analysis 27 DVD 

format after read-in 325 (see dope vector descriptor) 
DED 33 Dynamic defining 34 
DED, DED2 Dynamic dump 22 

dictionary entry formats 314, 315 Dynamic storage 
Default attributes 31 allocation 52 
DEFINED attribute 30, 31 management 358 

format of second file statement 338 Dynamic storage area 41 
DEFINED chain check 40 Dynamic temporary 49 
DELAY statement 45 Dynamically DEFINED item 49 


analysis 27 
format after read-in 325 


DELETE statement 45 EBCDIC 24, 292 
analysis 27 Edit-directed input/output 47 
format after read-in 326 ELSE clause 45 
Diagnostic message control 20 END card for compile program 55 
Diagnostic messages 14, 24, 25, 56, End-ofprogram, logical 25, 26 
363-369 End-of-program triple 
Dictionary 24, 27, 290, 293 translation to pseudo-code 48 
comunications region 15, 352-355 END statement 
contextual scan 32 compiler-generated 25 
Dictionary block 16, 19 format after read-in 322 
control 19 ENTRY chain 27 
Size 13, 350 ENTRY code byte format 299 
Dictionary entry 24, 293-316 Entry label 25 
for allocated item 32 Entry point 
code bytes 293-295 dictionary entry format 295 
compile-time processor 370 to compilation 55 
from constant 310-311 ENTRY statement 32 
dope vector descriptor 40 analysis 27 
for entry points 28 dictionary entry 30 
for internal entry point 29 format after read-in 322 
record description 40 Entry type 1 28, 29 
zone delimiter 51 chain 31 
OFFSET1 slot 50 dictionary entry 295 
skeleton dope vector 49 Entry type 2 29 
virtual origin slot 50 dictionary entry 297 
(see also format of) Entry type 3 28, 29 
Dictionary entry chains 29 dictionary entry 297 
Dictionary logical phase 27-35 Entry type 4 28, 29 
function 15, 17 dictionary entry 298 
housekeeping 34 Entry type 5 28 
output 32 dictionary entry 299 
picture processing 33 Entry type 6 28 
second file merge 34 ENVIRONMENT option 54 
Dictionary reference Epilogues, code produced for 358-362 
validity check 33 Error chain 24, 56 
DIM function 44 Error messages 
Dimension attribute 30 (see diagnostic messages) 
Dimension table 30, 316 Errors 25 
DISPLAY statement 45 Error editor logical phase 26, 55-56 
analysis 27 function 15, 18 
format after read-in 324 Error package, library 53 
DO statement ESD cards 54 
format after read-in 323 Event variable 32 
DO-END statement analysis 27 EXIT statement 45 
DO group expansion 42 format after read-in 325 
Dope vector Expressions 
format 316 in attributes 336 
descriptor dictionary entry 40 compile-time processor encodement 372 
extra slots 49 definition 36 
skeleton, dictionary entry 314 evaluation (pseudo-code) 42 
temporary, dictionary entry 315 External/internal code conversion 25 
‘Dope vector required’ bit 34 EXTERNAL item addressing slot 49 
DSA 41, 51 External library routines 341 
Dummy dictionary reference 31, 33 External symbol dictionary 54 
DUMP option 21, 292 EXTREF option 14, 292 
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F-format records 
Factored attribut 


Factored attribute table 


FED 


(see format element descriptor) 


File 
constant 54 


292 
es 3 


dictionary entries 


variable 32 


Final assembly 54 


Final assembly logical phase 


function 15, 
initial values 
FIND macro 377 


First code byte (other 1) format 303 


FIXED function 4 


18 
55 


4 


0, 31 


310 


FIXED standard type DED 50 


FLAGL, FLAGS, FLAGW options 


FLOAT function 4 


4 


FLOAT standard type DED 50 


FLOOR function 4 
Flowcharts 57-27 


ц 
2 


Formal parameter type 1 
dictionary entry 309 

Format element descriptor 
dictionary entry 315 


Format list 36 


association with data list 


Format of 


ALLOCATE statement 
array bound second file statement 337 


assignment statement 323 


325 


BEGIN statement 322 


CALL statement 


324 


CLOSE statement 32 


control code word -- CCCODE 292 


DECLARE statement 


DEFINED second file statement 338 


DELAY statement 32 
DELETE statement 3 


dictionary ent 
(see below) 


ries 


DISPLAY statement 


DO statement 
END statement 
ENTRY code byt 


323 
322 
e 29 


ENTRY statement 32 


EXIT statement 


325 


FORMAT statement 3 
GENERIC entry point 


GET Statement 
GOTO statement 


identifier value block (compile-time 


processor) 
IF statement 


INITIAL label DECLARE statement 325 
INITIAL value second file statement 


keyword table 


multiplier function second file 


statement 3 
null statement 
ON statement 
OPEN statement 


326 
324 


371 
322 


291 


37 
325 

323 
326 


options code byte 


phase directory entry 292 
PROCEDURE statement 321 


PUT statement 
READ statement 


326 
326 


6 
325 
5 
26 
324 
9 

2 


26 
299 


299 


30 


338 


REVERT statement 324 

RETURN statement 325 

REWRITE statement 326 

RR instructions 334, 336 

RS instructions 334, 336 

RX instructions 333, 336 

second file statement 337 

SI instructions 334, 336 

SIGNAL statement 324 

SS instructions 334, 336 

STOP statement 325 

string length second file statement 

text after read-in phase 321-326 

text in absolute code 335 

text in pseudo-code 332-335 

text code byte after read-in phase 
318-321 

triples 329-331 

UNLOCK statement 326 

WAIT statement 324 

WRITE statement 326 

variable information 305, 306 


Format of dictionary entries 293-316 


AUTOMATIC chain delimiter 314 
BCD 312 
built-in function 311 
CHECK list 313 
compile-time processor 370 
compiler label 309 
from constants 310-311 
data item 300 
code bytes for data, label, and 
structure entries 303-305 
DED 314-315 
DED2 315 
dope vector 316 
dope vector for temporary 315 
dope vector skeleton 314 
entry points 295-299 
code bytes 299 
entry type 1 295-297 
entry type 2 297 
entry type 3 297-298 
SETS list format 298 
entry type 4 298 
entry type 5 299 


FED (format element descriptor) 315 


FILE 310 
file constant 310 
file environment 310 


file parameters and temporaries 310 


formal parameter type 1 309 
internal library function 312 
label BCD 315 

label constant 309 

label variable 300 

ON condition 313 

ON statement 312 

parameter description 312 
parameter list 314 

PICTURE 313 

record definition vector 315 
second file 316 

structure item 300 

symbol table 314 


task identifiers and EVENT data 311 


workspace requirement 313-314 


FORMAT statement 


Index 


338 
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analysis 27 
format after read-in 326 
'" Fourth code byte (other 4) 304 
FREE statement 52 

analysis 27 
FREE triple 

translation to pseudo-code 48 
FREE VDA library call 52 
FREEDSA routine 45 
Functions 44 
Function triples 43 


GENERIC attribute 31, 44 
GENERIC entry labels 37 
Generic entry name arguments 44 
GENERIC entry point, format 299 
Generic library routine 39 
Generic procedure 39 
GET statement 46 

format after read-in 326 
GOOB 33 

triple 45 
GOTO statement 33 

analysis 27 

format after read-in 324 
GOTO triple 45 
go-out-of-block 

(see GOOB) 


Hash chain 27,29 
Hash table 27, 29 
Hashing 27, 370 
HBOUND function 44 


IDENT option 57 
Identifier value block 371 
IEMAA 19 
ІЕМАЕ 356 

bit identification 357 
IF statenent 

format after read-in 322 
IF-THEN-ELSE statement analysis 27 
IF triple 45 
IGN pseudo-code item 48 
ІНЕМАІМ 55 
IMAG function 44 
INCLUDE 377 

dictionary entry 54 
INCLUDE card 

generation 54 

matrix 47, 48 
Included data sets 21, 23 
INITIAL attribute 30, 31 
INITIAL CALL attribute 30, 31 
INITIAL label DECLARE statement 

format after read-in 325 
INITIAL value 


format of second file statement 338 


Initial values, final assembly 55 
Initialization 19 
Initialization table 42 
In-line functions (pseudo-code) 44 
Input/output 46 
control 19, 20 
edit-directed 47 
interface with operating system 21 
modification 36 
RECORD-oriented 45 


382 


STREAM-oriented 47 
usage table 21 

Input/output statements 
format after read-in 326 

Insertion file 53 

Instruction codes for compile-time 

processor 372-374 
Intermediate file 21 
Internal formats of dictionary entries 
293-316 
(see also format of) 

Internal formats of text 317-349 
compile-time processor 370-374 
(see also format of) 

Internal library function 
dictionary entry 312 

Internal library routines 341 

Invalid character 24 

Invocation count 45 

IRREDUCIBLE 31 

iSUB 30 
defining 37 

Iterative DO statement analysis 27 

IVB 
(see identifier value block) 


JMP triple removal 48 
Job control language 13 
Job termination 20 


KEY option 46 
KEYFROM option 46 
KEYLENGTH option 47 
KEYTO option H6 
Keyword tables 26 
organization 290-291 
(see also format of) 
Keywords, national language 291 


Label 26 
array 33 
with initial label statement 34 
dictionary entry for BCD 315 
dictionary entry for constant 309 
dictionary entry for variable 300 
LABEL attribute 30 
Label table 25 
Labels, multiple 25 
LBOUND function 44 
LENGTH function 44 
Level count 32 
Library 45 
calling sequences 43, 45, 48 
format in pseudo-code 341 
epilogue routine 45 
error package 53 
format director routines 47 
LIKE attribute 30, 31 
LIKE chain 31 
'Likened' structure 31 
LINE option 47 
Line numbering 23 
LINESIZE option 47 
Link library 13 
Linkage editor 13, 54 
LIST option 14, 55, 292 
Listings 14 
attribute 34 


cross reference 34 
Load-ahead technique 31 
LOAD option 14, 292 
Loader text cards 55 
Loading of phases 13, 20 
LOCATE statement 45 

analysis 27 
Location counter 

Machine instructions 54 

STATIC 50 
Logical end-of-program 25 
Logical phases 


functions 15, 17 


(see also phases (logical), description) 


LONG standard type DED 50 
'Look-ahead' routine 52, 53 


Machine instructions 55 

MACRO option 21, 23, 292, 377 
MAIN option 55 

MAX function 44 
Message text 56 
Messages, diagnostic 
MIN function 44 
Mixed overlay defining 40 
MOD function 44 


363-369 


Modules 
AA 19, 21, 56 
АВ 21 
АС 21 
АЕ 21 
AF 356 


bit identification 357 
AS 21 


BX 21 

CA 290 

cc 290 

CE 290 

CG 290 

CI 20, 290 
CK 290 

CN 290 

CR 290 

FY 21 

UA 21 

UF 21 

XB 21, 56 
XF 56 


XG through YF 56 

(see also phases and modules) 
Multiple assignment 43 
Multipie source assignment triples 

translation to pseudo-code 48 
Multiple target assignment triples 

translation to pseudo-code 48 
Multiplier function 

format of second file statement 


National language keywords 291 
Nested assignment statements 37 
Nested DO groups 42 
Nested procedures 

object time unnesting 55 
NOCHECK list 33 
Null statement 

format after read-in 325 


Object deck serialization 54 


337 


Object listing 55 

Object program 15 

OFFSET1.and OFFSET2 slots 306, 307 
uses of 308-309 

ON block 51 

ON CHECK condition 35 

ON condition 33, 50, 51 
dictionary entry format 312, 313 
programmer-named 32 

ON statement 
dictionary entry format 312 
format after read-in 323 

ON triple 45 

OPEN control block 54 

OPEN macro 377 

OPEN statement 46 
format after read-in 326 

Operating system/360 
access methods 21 


compile-time processor, interface with 


377 

control program 13, 16 

job control language 13 
OPT 292 
Optimization 54 
Option list 19 
Options code byte 29 

format 299 
Options, compiler 
Options listing 19 
Other 1 

(see first code byte) 
Other 2 

(see second code byte) 
Other 4 

(see third code byte) 
Other 4 

(see fourth code byte) 
Output 

compile-time processor 24 

dictionary 32 

read-in phase 25 
Overlay defining 34, 40 


356-357 


P FORMAT marker 32 
PAGESIZE option 47 


Parameter description dictionary entry 312 


Parameter list dictionary entry 314 
Parameter matching 36 


Phase 
ВС 372 
СІ 22 
FT 293 
IA 42 
JK 52 
LB 49 


(see also phases and modules) 
Phase directory 19, 20 

entry format 292 

organization 292 

second half 22 

status byte 13 
Phase loading 

compile-time processor 23 
Phase marking 20, 38, 42 
Phases, communication between 293 
Phases and modules 

description 19-56 


Index 
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guide to 287-289 
Phases (logical), description 19-56 
aggregates 39-40 
compile-time processor 23-24 
dictionary 27-35 
error editor 55-56 
final assembly 53-55 
pretranslator 35-38 
pseudo-code 40-49 
read-in 24-27 
register allocation 52-53 
storage allocation 49-52 
translator 38-39 
Physical registers 41 
allocation 53 
PICTURE 
chain 33 
Gictionary entry 29, 32 
format 313 
table 30 
reorganization 34 
Polish, postfix 372 
POSITION attribute 30 
Postfix Polish 372 
Precision attribute 30 
PRECISION function 44 
Pretranslator logical phase 35-38 
function 15, 17 
PROCEDURE 
block 51 
chain 27 
statement 29, 32 
format after read-in 321 
triple 
translation to pseudo-code 48 
PROCEDUR&E-END statement analysis 27 
PROCEDURE-ENTRY-BEGIN chain 25 
PROCEDURE-ENTRY chain 29-30 
Procedure invocation 44 
Procedure size 54 
PROCEDURE’ triple 45 
translation to pseudo-code 48 
Program check handling 20 
Prologues 53 
code produced for 352-362 
construction 28-51 
PRV 45 
Pseudo-assignment statement 26 
Pseudo-code 
description 40 
design 40, 332 
format of 
RR instructions 334 
RS instructions 334 
RX instructions 333 
SI instructions 334 
SS instructions 334 
text 332-335 
library calling sequences 341 
skeletons 47 
supplementary items 41 


temporary result descriptors (TMPDs) 


339-341 
Pseudo-code logical phase 40-49 
branches 45 


compiler functions and pseudo-variables 


48 
expression evaluation 42 


384 


function of 15, 17 
in-line functions 44 
RECORD I/O 45 
STREAM I/O 47 
string utilities 43 
subscripts 45 
utilities 41 
Pseudo-register vector 45 
Pseudo-variable 
syntax check 37 
triples 43 
PUT statement 46 
format after read-in 326 


Qualified subscripted name 32 
QSAM 21 


R format item 47 
RDV 
(see record definition vector) 
Read-in logical phase 24-27, 290 
function 15, 17 
output string 25, 26 
arrangement 26 
storage map 26 
structure 26 
READ macro 377 
READ statement 45 
analysis 27 
format after read-in 326 
REAL function 44 
Record definition vector 46 
dictionary entry 315 
Record decription dictionary entries 
Record descriptor vector 46 
RECORD-oriented input/output 45 
Records on input 
F-format 292 
U-format 292 
REDUCIBLE 31 


Register allocation logical phase 52-53 


function 15, 18 
Registers 
pseudo-code description 41 
RELESE 352 
Relocation dictionary cards 55 
Remote format item 47 
REQEST 352 
REQUEST CODES 46 
Resident tables 290-292 
RETURN(expression) 28 
RETURN statement 
analysis 27 
format after read-in 325 
RETURN triple 45 
REVERT statement 33 
format after read-in 324 
REVERT triple 45 
REWRITE statement 45 
analysis 27 
format after read-in 326 
RLD cards 55 
RLSCTL 352 
RLSCTLX 352 
ROUND function 44 
Routine directories 57-286 
RR instruction format 
absolute code 336 


pseudo-code 334 
RS instruction format 
absolute code 336 
pseudo-code 334 
RX instruction format 
absolute code 336 
pseudo-code 333 


Scalar assignment 37 
Scalar overlay defining 40 
Scratch storage 19 
Second code byte (other 2) format 303 
Second end-of-program marker 38 
Second file 33, 34 
dictionary entry 316 
statement 29, 30, 49, 51, 336 
Second half phase directory 22 
Second offset slot 306, 307 
uses ОҒ 308-309 
SELL statement 35, 37, 48 
reordering of 44 
SELL triple 
translation to pseudo-code 48 
SETS attribute 30, 33 
SETS list format 298 
Severity code 292 
SHORT standard type DED 50 
SI instruction format 
absolute code 336 
pseudo-code 334 
SIGNAL statement 33 
format after read-in 324 
SIGNAL triple 45 
SIGNAL CHECK statement 37 
SIGN function 44 
SIZE option 20, 21 
Skeleton dope vector dictionary entry 49 
SKIP option 47 
SOURCE option 14, 27, 292 
SOURCE2 option 14 
Source program listing 27 
Special assignment triple 
translation to pseudo-code 48 
Spill file 351 
Spill point 13, 351 
Spill storage 16 
SS instruction format 
absolute code 336 
pseudo-code 334 
Stack action 38 
Stack weight 38 
Standard type DED 50 
Statement 
anlysis 27 
identifier 26 
label 25 
dictionary entry 30 
label, translation to pseudo-code 48 
number 25, 32 
translation to pseudo-code 48 
type identification 26 
within statements 35 
Statements 
ALLOCATE 52, 325 
assignment 323 
BEGIN 51, 322 
BUY 48, 52 
BUY ASSIGN 48 


CALL 324 
CLOSE 46, 326 
DECLARE 325 
DELAY 45, 325 
DELETE 45, 326 
DISPLAY 45, 324 
DO 323 
END 322 
ENTRY 322 
EXIT 325 
FORMAT 326 
GET 46, 326 
GOTO 324 
IF 322 
INITIAL label DECLARE 325 
LOCATE 45 
null 325 
ON 323 
OPEN 46, 326 
PROCEDURE 51, 321 
PUT 46, 326 
READ 45, 326 
RETURN 325 
REVERT 324 
REWRITE 45, 326 
SELL 48 
SIGNAL 324 
STOP 325 
UNLOCK 45, 326 
WAIT 324 
WRITE 45, 326 
(see also individual items, and format 
of) 
Static 
defining 34 
external variable CSECT 55 
internal CSECT 49, 55 
storage allocation 49 
Status byte 13 
Step table 53 
Sterling constants 34 
STMT option 53 
STOP statement 45 
format after read-in 325 
Storage allocation logical phase 15, 17, 
49-52 | 
arrays 51 
AUTOMATIC chain 50-51 
controlled variable address 51 
DEDs 49, 50 
DEFINED items 51 
dynamic 52 
entry label BCD 49 
entry type 1 parameters 51 
INITIAL arrays 50 
label constant BCD 49 
RDVs 49 
SAVE/RESTORE entries 49 
Simple variables 49 
STATIC 49 


STATIC INTERNAL arrays and structures 50 


strings 51 
structures 51 
symbol tables 50 
temporary type 2 address 51 
variables 51 
Storage class chains 293 
Storage dumping 21 


Index 385 





Storage requirements 13, 20, 350-351 
STREAM-oriented input/output 47 


String 
‚доре vector description 43 
length 31 


format of second file statenent 338 

triples 43 

utilities (pseudo-code) 43 
STRING function 44 
Structure 

assignment 37 

'inherited' dimensions 34 

item dictionary entry 300 

level number 30, 31 

storage allocation 50 
Structure processor phase 39 
Subscripted qualified name 32 
Subscripts 

pseudo-code 45 

too many in list 37 

triples 43 
Symbolic accumulator register 40 
Symbolic register 41, 52, 53 

counter 41 
SYSIN 14, 19, 20, 21 
SYSLIB 21 
Symbol table dictionary entry format 
SYSLIN 14, 20, 21 
SYSPRINT 14, 19, 20, 21 
SYSPUNCH 14, 20, 21 
System generation 356-357 
System residence 16 
SYSUT1 14, 19, 21, 
SYSUT3 14, 19, 21 


314 


351 


Task identifier and EVENT data 
dictionary entries 311 
Temporary description stack 339 


Temporary result descriptor 339-341 
format 339 
triple 41 


Temporary storage 35 
Temporary variable 35, 36 
Termination of compilation 20 
Terms used during compilation 3 41-349 
TESTRAN 21 
Text 
block 15, 16, 19 
control 19 
marker 24 
size 13, 
code byte 
format after read-in 318-321 
on entry to translator phases 
in pseudo-code 322 
formats 317-349 
after read-in phase 
compile-time processor 
absolute code 335-336 
skipping 26 
string 
at start of compilation 15 
after translation 38 
supplementary items 35 
terms and abbreviations during 
compilation 341-349 
Third code byte (other 3) 
TITLE option 47 


350 


321-326 
370 


304 


386 


327-328 


TMPD 339-341 
format 339 
triples 43 


(see also temporary result descriptor) 


Track over flow 292 

Transfer vectors 19, 

Translate table 25 
triples 42 

Translation stack 38 

Translator logical phase 
function 15, 17 
generic phase 39 
Stacker phase 38 

Triples 17, 38 
conversion to pseudo-code 40 
format 329-331 
translate table 42 

TRUNC function 44 

TXT cards 55 


352 


38-39 


U-format records 292 
Umbrella symbol 35 
Undimensioned structure 
overlay defining 40 
UNLOCK statement 45 
analysis 27 


format after read-in 326 
UNSPEC function 44 
USES attribute 30 
Variable byte format 305 


Variable data area 44, 51 
Variable information, format of 
Variable initialization 42 
Variable length item 334 
Variable storage accumulator 52 
VARYING attribute 40 
VDA 

(see variable data area) 
Virtual origin 36, 316 

slot 50 


305-306 


WAIT statement 

analysis 27 

format after read-in 324 
Workspace requirement dictionary entry 
Workspace supervision 13 
WRITE statement 45 

analysis 27 

format after read-in 326 
XREF listing 

(see cross-reference listing) 


XREF option 14, 34, 292 
ZABORT 352 
ZALTER 352 
ZCHAIN 352 
ZDICAB 352 
ZDICRF 352 
.ZDABRF 352 
ZDRFAB 352 
ZEND 352 
.ZLOADW 352 
.ZLOADX 352 
ZNALDB 352 
ZNALRF 352 


313 


zone delimiter dictionary entry (AUTOMATIC 


chain) 51 
ZTXTAB 352 
ZTXTRF 352 


ZUBW 352 
ZUERR 352 
ZUGC 352 


ZULF 
ZUPL 
ZUSP 
ZURC 
ZURD 


ZUTXTC 352 


352 
352 
352 
352 
352 
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